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