Change 23652 by [EMAIL PROTECTED] on 2004/12/14 16:22:42
Fix for [perl #32491] h2xs incorrectly parses enums with implicit values
Affected files ...
... //depot/perl/utils/h2xs.PL#92 edit
Differences ...
==== //depot/perl/utils/h2xs.PL#92 (text) ====
Index: perl/utils/h2xs.PL
--- perl/utils/h2xs.PL#91~23228~ Thu Aug 19 16:14:00 2004
+++ perl/utils/h2xs.PL Tue Dec 14 08:22:42 2004
@@ -901,8 +901,8 @@
next if $opt_e && $enum_name =~ /$opt_e/;
my $val = 0;
for my $item (split /,/, $enum_body) {
- my ($key, $declared_val) = $item =~ /(\w+)\s*=\s*(.*)/;
- $val = length($declared_val) ? $declared_val : 1 + $val;
+ my ($key, $declared_val) = $item =~ /(\w+)\s*(?:=\s*(.*))?/;
+ $val = defined($declared_val) && length($declared_val) ?
$declared_val : 1 + $val;
$seen_define{$key} = $declared_val;
$const_names{$key}++;
}
End of Patch.
