Fix a couple of perl4-isms that are now illegal
authorH. Peter Anvin <hpa@zytor.com>
Sun, 19 May 2002 01:51:00 +0000 (01:51 +0000)
committerH. Peter Anvin <hpa@zytor.com>
Sun, 19 May 2002 01:51:00 +0000 (01:51 +0000)
macros.pl

index 6eaf294..0934d17 100644 (file)
--- a/macros.pl
+++ b/macros.pl
@@ -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;