From 45e3da644098aeef7c646a59a3072d9160b43d5d Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin" <hpa@zytor.com>
Date: Sun, 19 May 2002 01:51:00 +0000
Subject: [PATCH] Fix a couple of perl4-isms that are now illegal

---
 macros.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/macros.pl b/macros.pl
index 6eaf294..0934d17 100644
--- 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;
-- 
2.7.4