#! /usr/bin/env perl
-# Copyright (C) 1999, 2000, 2001, 2003, 2007 Free Software
-# Foundation, Inc.
+# Copyright (C) 1999, 2000, 2001, 2003, 2007, 2009, 2010, 2011 Free
+# Software Foundation, Inc.
# This file is part of GCC.
# something suitable for a manpage from a Texinfo document.
use warnings;
+BEGIN { eval { require warnings; } and warnings->import; }
$output = 0;
$skipping = 0;
$file = postprocess($1);
# Try cwd and $ibase.
- open($inf, "<" . $file)
+ open($inf, "<" . $file)
or open($inf, "<" . $ibase . "/" . $file)
or die "cannot open $file or $ibase/$file: $!\n";
next;