From ad1f50a50694b31539db5a24b0c2bc1090855094 Mon Sep 17 00:00:00 2001
From: "H. Peter Anvin (Intel)" <hpa@zytor.com>
Date: Fri, 9 Aug 2019 16:20:40 -0700
Subject: [PATCH] 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>
---
 asm/warnings.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 }",