projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d73d634
)
feature.pl: Make the perl.h search more resilient
author
Father Chrysostomos
<sprout@cpan.org>
Fri, 23 Dec 2011 16:27:02 +0000
(08:27 -0800)
committer
Father 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
patch
|
blob
|
history
diff --git
a/regen/feature.pl
b/regen/feature.pl
index
3badc70
..
d862b7c
100755
(executable)
--- 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;