diff options
| author | H. Peter Anvin <hpa@zytor.com> | 2002-05-19 01:51:00 +0000 |
|---|---|---|
| committer | H. Peter Anvin <hpa@zytor.com> | 2002-05-19 01:51:00 +0000 |
| commit | 45e3da644098aeef7c646a59a3072d9160b43d5d (patch) | |
| tree | 491672b77994ee9f385e26364b3dcf179901892f /macros.pl | |
| parent | 7a2911887959d4426b96b313f733fd3100fea593 (diff) | |
| download | nasm-45e3da644098aeef7c646a59a3072d9160b43d5d.tar.gz nasm-45e3da644098aeef7c646a59a3072d9160b43d5d.tar.bz2 nasm-45e3da644098aeef7c646a59a3072d9160b43d5d.zip | |
Fix a couple of perl4-isms that are now illegal
Diffstat (limited to 'macros.pl')
| -rw-r--r-- | macros.pl | 4 |
1 files changed, 2 insertions, 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; |