diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-05-02 01:55:53 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-05-02 01:55:53 +0000 |
| commit | e78c7d95b1afa16d50454952a650d0a02b7a4113 (patch) | |
| tree | 6784440ad401f1295f7698bb8d5128adabc657f2 /utils | |
| parent | e9014798f4f634151d92887db69bde2b6ef69071 (diff) | |
| download | perl-e78c7d95b1afa16d50454952a650d0a02b7a4113.tar.gz | |
Fix for RT #25366: h2xs 1.23 from "Aaron Kaplan".
p4raw-id: //depot/perl@28044
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2xs.PL | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/utils/h2xs.PL b/utils/h2xs.PL index 7a2175223b..d62e96ec85 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -904,6 +904,7 @@ if( @path_h ){ next if $opt_e && $enum_name =~ /$opt_e/; my $val = 0; for my $item (split /,/, $enum_body) { + next if $item =~ /\A\s*\Z/; my ($key, $declared_val) = $item =~ /(\w+)\s*(?:=\s*(.*))?/; $val = defined($declared_val) && length($declared_val) ? $declared_val : 1 + $val; $seen_define{$key} = $val; |