diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-23 08:27:02 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:20 -0800 |
| commit | 19109a04d85bfa82d8dc7a9fb51b4e6960f3e969 (patch) | |
| tree | df7e964d43a8d6fd609c25cdbd63aeed948e6ecd /regen | |
| parent | d73d634c059d74e4852247e2e02bd247211c339b (diff) | |
| download | perl-19109a04d85bfa82d8dc7a9fb51b4e6960f3e969.tar.gz | |
feature.pl: Make the perl.h search more resilient
In case #define is changed to # define some day. (Not likely, but
this will make things easier for future maintainers.)
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/feature.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index 3badc7048b..d862b7cc3b 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -88,7 +88,7 @@ my $HintMask; open "perl.h", "perl.h" or die "$0 cannot open perl.h: $!"; perlh: { while (readline "perl.h") { - next unless /#define\s+HINT_FEATURE_MASK/; + next unless /#\s*define\s+HINT_FEATURE_MASK/; /(0x[A-Fa-f0-9]+)/ or die "No hex number in:\n\n$_\n "; my $hex = $HintMask = $1; my $bits = sprintf "%b", oct $1; |