diff options
author | H. Peter Anvin (Intel) <hpa@zytor.com> | 2019-08-09 13:30:19 -0700 |
---|---|---|
committer | H. Peter Anvin (Intel) <hpa@zytor.com> | 2019-08-09 13:30:19 -0700 |
commit | 177a05d0ce75eeee49a98944b9c7e7efa971a0a6 (patch) | |
tree | 041859be3209522e20fc7a9164a36048e42e5d88 /perllib | |
parent | 2503cc09a2f749669609e5c2b3a744426720acd1 (diff) | |
download | nasm-177a05d0ce75eeee49a98944b9c7e7efa971a0a6.tar.gz |
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 'perllib')
-rw-r--r-- | perllib/phash.ph | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perllib/phash.ph b/perllib/phash.ph index 8142c4ef..644e13c7 100644 --- a/perllib/phash.ph +++ b/perllib/phash.ph @@ -62,9 +62,9 @@ sub walk_graph($$$$) { sub gen_hash_n($$$$) { my($n, $sv, $href, $run) = @_; my @keys = keys(%{$href}); - my $i, $sv; + my $i; my $gr; - my $k, $v; + my ($k, $v); my $gsize = 2*$n; my @nodeval; my @nodeneigh; @@ -140,7 +140,7 @@ sub gen_perfect_hash($) { my($href) = @_; my @keys = keys(%{$href}); my @hashinfo; - my $n, $i, $j, $sv, $maxj; + my ($n, $i, $j, $sv, $maxj); my $run = 1; # Minimal power of 2 value for N with enough wiggle room. |