[perl #37142] h2xs skips enums with negative values

From: Aaron Kaplan (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-37142-120585.5.90517066191047@perl.org>

p4raw-id: //depot/perl@25388

diff --git a/utils/h2xs.PL b/utils/h2xs.PL
index 20fa9c3..19452de 100644 (file)
--- a/utils/h2xs.PL
+++ b/utils/h2xs.PL
@@ -894,9 +894,8 @@ if( @path_h ){
         # Remove C and C++ comments
         $src =~ s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#$2#gs;
 
-        while ($src =~ /(\benum\s*([\w_]*)\s*\{\s([\s\w=,]+)\})/gsc) {
-            my ($enum_name, $enum_body) =
-                $1 =~ /enum\s*([\w_]*)\s*\{\s([\s\w=,]+)\}/gs;
+       while ($src =~ /\benum\s*([\w_]*)\s*\{\s([^}]+)\}/gsc) {
+           my ($enum_name, $enum_body) = ($1, $2);
             # skip enums matching $opt_e
             next if $opt_e && $enum_name =~ /$opt_e/;
             my $val = 0;