aboutsummaryrefslogtreecommitdiffstats
path: root/asm/pptok.pl
diff options
context:
space:
mode:
authorH. Peter Anvin (Intel) <hpa@zytor.com>2019-08-09 13:30:19 -0700
committerH. Peter Anvin (Intel) <hpa@zytor.com>2019-08-09 13:30:19 -0700
commit177a05d0ce75eeee49a98944b9c7e7efa971a0a6 (patch)
tree041859be3209522e20fc7a9164a36048e42e5d88 /asm/pptok.pl
parent2503cc09a2f749669609e5c2b3a744426720acd1 (diff)
downloadnasm-177a05d0ce75eeee49a98944b9c7e7efa971a0a6.tar.gz
nasm-177a05d0ce75eeee49a98944b9c7e7efa971a0a6.tar.xz
nasm-177a05d0ce75eeee49a98944b9c7e7efa971a0a6.zip
perl files: clean up warnings
Clean up some perl warnings, some of which were legitimate (apparently undef doesn't actually take a list of arguments, a common enough mistake that it is mentioned in the man page!, and a list of variables after "my" can be cantankerous), and some of which were nuisance but were easy enough to clean up. Maybe this can resolve the problems with very old version of Perl? Signed-off-by: H. Peter Anvin (Intel) <hpa@zytor.com>
Diffstat (limited to 'asm/pptok.pl')
-rwxr-xr-xasm/pptok.pl2
1 files changed, 0 insertions, 2 deletions
diff --git a/asm/pptok.pl b/asm/pptok.pl
index 1dd5733a..2c28508f 100755
--- a/asm/pptok.pl
+++ b/asm/pptok.pl
@@ -174,8 +174,6 @@ if ($what eq 'c') {
verify_hash_table(\%tokens, \@hashinfo);
($n, $sv, $g) = @hashinfo;
- $sv2 = $sv+2;
-
die if ($n & ($n-1));
print OUT "#include \"compiler.h\"\n";