[Nasm-bugs] [Bug 3392585] warnings.pl generates bad header with perl-5.10.1

[noreply-nasm at gorcunov.org]

https://bugzilla.nasm.us/show_bug.cgi?id=3392585

--- Comment #12 from Ozkan Sezer <sezeroz at gmail.com> ---
Fix seems simple, I guess:

diff --git a/asm/warnings.pl b/asm/warnings.pl
index e4f1472..700b1c9 100755
--- a/asm/warnings.pl
+++ b/asm/warnings.pl
@@ -147,8 +147,7 @@ if ($what eq 'c') {
        print $out ",\n\t\"", $warn->{name}, "\"";
     }
     print $out "\n};\n\n";
-    printf $out "const struct warning_alias warning_alias[%d] = {",
-       scalar(%aliases);
+    printf $out "const struct warning_alias warning_alias[NUM_WARNING_ALIAS] =
{";
     my $sep = '';
     foreach my $alias (sort { $a cmp $b } keys(%aliases)) {
        printf $out "%s\n\t{ %-27s WARN_IDX_%s }",

-- 
You are receiving this mail because:
You are on the CC list for the bug.
You are watching all bug changes.