--- texi2man.orig	Fri Nov 28 22:34:53 2003
+++ texi2man	Sat May 29 14:55:49 2004
@@ -170,8 +170,8 @@
 
     if (/\@include (.*)/) {
 	my $INCL;
-        open($INCL, $1) or open($INCL, "../$1") or die "$1: $!";
-        while (<$INCL>) {
+        open(INCL, $1) or open(INCL, "../$1") or die "$1: $!";
+        while (<INCL>) {
             parse();
         }
         next;
