aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorH. Peter Anvin (Intel) <hpa@zytor.com>2019-08-09 16:20:40 -0700
committerH. Peter Anvin (Intel) <hpa@zytor.com>2019-08-09 16:20:40 -0700
commitad1f50a50694b31539db5a24b0c2bc1090855094 (patch)
tree8bb24432e7300a00547dcabffa9177e8464053c2
parent6ecc25c13e9aae7ca315d96b90feb4215d70b0ce (diff)
downloadnasm-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-xasm/warnings.pl2
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 }",