diff options
| author | Noah <sitz@onastick.net> | 2005-01-19 07:33:52 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-19 17:19:04 +0000 |
| commit | 3e0a3558675c46274592389adb574bfc2a161d7a (patch) | |
| tree | 7db7135cc2d8b2c52322416baefb011336e9aa55 /utils/h2xs.PL | |
| parent | 151269f6b19acf66be4301c6a8ad22acbd4b3c22 (diff) | |
| download | perl-3e0a3558675c46274592389adb574bfc2a161d7a.tar.gz | |
Re: [perl #32498] h2xs generates incorrect code for Makefile.PL for enums
Message-ID: <20050119173352.GA15592@radu.onastick.net>
p4raw-id: //depot/perl@23822
Diffstat (limited to 'utils/h2xs.PL')
| -rw-r--r-- | utils/h2xs.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index b973705ed0..bb4f537bf5 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -903,7 +903,7 @@ if( @path_h ){ for my $item (split /,/, $enum_body) { my ($key, $declared_val) = $item =~ /(\w+)\s*(?:=\s*(.*))?/; $val = defined($declared_val) && length($declared_val) ? $declared_val : 1 + $val; - $seen_define{$key} = $declared_val; + $seen_define{$key} = $val; $const_names{$key}++; } } # while (...) |