diff options
| author | H. Peter Anvin (Intel) <hpa@zytor.com> | 2019-08-09 16:20:40 -0700 |
|---|---|---|
| committer | H. Peter Anvin (Intel) <hpa@zytor.com> | 2019-08-09 16:20:40 -0700 |
| commit | ad1f50a50694b31539db5a24b0c2bc1090855094 (patch) | |
| tree | 8bb24432e7300a00547dcabffa9177e8464053c2 | |
| parent | 6ecc25c13e9aae7ca315d96b90feb4215d70b0ce (diff) | |
| download | nasm-ad1f50a50694b31539db5a24b0c2bc1090855094.tar.gz nasm-ad1f50a50694b31539db5a24b0c2bc1090855094.tar.xz nasm-ad1f50a50694b31539db5a24b0c2bc1090855094.zip | |
warnings.pl: remove one more instance of "scalar(%hash)"
scalar(%hash) is broken on old versions of Perl, use scalar(keys
%hash).
Signed-off-by: H. Peter Anvin (Intel) <hpa@zytor.com>
| -rwxr-xr-x | asm/warnings.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asm/warnings.pl b/asm/warnings.pl index e4f1472a..ba4f5906 100755 --- a/asm/warnings.pl +++ b/asm/warnings.pl @@ -148,7 +148,7 @@ if ($what eq 'c') { } print $out "\n};\n\n"; printf $out "const struct warning_alias warning_alias[%d] = {", - scalar(%aliases); + scalar(keys %aliases); my $sep = ''; foreach my $alias (sort { $a cmp $b } keys(%aliases)) { printf $out "%s\n\t{ %-27s WARN_IDX_%s }", |