From 19109a04d85bfa82d8dc7a9fb51b4e6960f3e969 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 23 Dec 2011 08:27:02 -0800
Subject: 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.)
---
 regen/feature.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'regen')

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;
-- 
cgit v1.2.1