Bug fix for 4.2.7
authorTim Mann <tim@tim-mann.org>
Fri, 28 Nov 2003 21:22:16 +0000 (21:22 +0000)
committerTim Mann <tim@tim-mann.org>
Fri, 28 Nov 2003 21:22:16 +0000 (21:22 +0000)
texi2man

index d9206ba..b6bf052 100755 (executable)
--- a/texi2man
+++ b/texi2man
@@ -169,7 +169,7 @@ sub parse
     }
 
     if (/\@include (.*)/) {
     }
 
     if (/\@include (.*)/) {
-        open(my $INCL, $1) or open(my $INCL, "../$1") or die "$1: $!";
+        open(my $INCL, $1) or open($INCL, "../$1") or die "$1: $!";
         while (<$INCL>) {
             parse();
         }
         while (<$INCL>) {
             parse();
         }