#!/usr/bin/perl
-# $Id$
+# $Id: texi2man,v 1.2 2003/11/28 21:22:16 mann Exp $
# Written by Adrian Mariano, additional features by Eric Backus,
# yet more features by Tim Mann.
}
if (/\@include (.*)/) {
- open(my $INCL, $1) or open(my $INCL, "../$1") or die "$1: $!";
+ my $INCL;
+ open($INCL, $1) or open($INCL, "../$1") or die "$1: $!";
while (<$INCL>) {
parse();
}