Fix a couple of perl4-isms that are now illegal

This commit is contained in:
H. Peter Anvin 2002-05-19 01:51:00 +00:00
parent 7a29118879
commit 45e3da6440

View file

@ -16,13 +16,13 @@ my $tasm_count;
undef $tasm_count;
open OUTPUT,">macros.c" || die "unable to open macros.c\n";
open(OUTPUT,">macros.c") or die "unable to open macros.c\n";
print OUTPUT "/* This file auto-generated from standard.mac by macros.pl" .
" - don't edit it */\n\n#include <stddef.h>\n\nstatic const char *stdmac[] = {\n";
foreach $fname ( @ARGV ) {
open INPUT,$fname || die "unable to open $fname\n";
open(INPUT,$fname) or die "unable to open $fname\n";
while (<INPUT>) {
$line++;
chomp;