diff options
| author | Tassilo von Parseval <tassilo.parseval@post.rwth-aachen.de> | 2004-05-21 12:51:58 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-05-21 08:45:28 +0000 |
| commit | 797af06457c688e661ef6a212830baedd6918294 (patch) | |
| tree | aa4968d9c629648b1f7fa2c39dfb9bbe9397e2fb | |
| parent | 7237418a8f516d6002de239a7ae175380a62b3c8 (diff) | |
| download | perl-797af06457c688e661ef6a212830baedd6918294.tar.gz | |
h2xs doesn't recognize indented enums
Message-id: <20040521085158.GA10660@ethan>
(modified regexp)
p4raw-id: //depot/perl@22836
| -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 2e8e23e64d..9132bc956c 100644 --- a/utils/h2xs.PL +++ b/utils/h2xs.PL @@ -900,7 +900,7 @@ if( @path_h ){ 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*(.*)/; + my ($key, $declared_val) = $item =~ /(\w+)\s*=\s*(.*)/; $val = length($declared_val) ? $declared_val : 1 + $val; $seen_define{$key} = $declared_val; $const_names{$key}++; |