This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
feature.pl: Make the perl.h search more resilient
authorFather Chrysostomos <sprout@cpan.org>
Fri, 23 Dec 2011 16:27:02 +0000 (08:27 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 24 Dec 2011 17:25:20 +0000 (09:25 -0800)
In case #define is changed to # define some day.  (Not likely, but
this will make things easier for future maintainers.)

regen/feature.pl

index 3badc70..d862b7c 100755 (executable)
@@ -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;