Fix a couple of perl4-isms that are now illegal
This commit is contained in:
parent
7a29118879
commit
45e3da6440
1 changed files with 2 additions and 2 deletions
|
@ -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;
|
||||
|
|
Loading…
Reference in a new issue