diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-22 10:07:27 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:13 -0800 |
commit | 67bdaa9e280ffc7971297e951d22b899b3dacd93 (patch) | |
tree | aded057f202de5d3dd31670599af0c3f2c288525 /regen | |
parent | 88da30d732bdf35367c4008b31d9d07c1022434a (diff) | |
download | perl-67bdaa9e280ffc7971297e951d22b899b3dacd93.tar.gz |
feature.pl: Remove the feature_ prefix from the data
It’s not necessary to repeat it, as we can simply add it to feature.pm
when we generate it.
Removing it makes these data usable for feature.h, too.
Diffstat (limited to 'regen')
-rw-r--r-- | regen/feature.pl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/regen/feature.pl b/regen/feature.pl index 018ed0f7ef..aed9f54258 100644 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -17,18 +17,18 @@ use strict ; # (feature name) => (internal name, used in %^H) my %feature = ( - say => 'feature_say', - state => 'feature_state', - switch => 'feature_switch', - evalbytes => 'feature_evalbytes', - current_sub => 'feature___SUB__', - unicode_eval => 'feature_unieval', - unicode_strings => 'feature_unicode', + say => 'say', + state => 'state', + switch => 'switch', + evalbytes => 'evalbytes', + current_sub => '__SUB__', + unicode_eval => 'unieval', + unicode_strings => 'unicode', ); # These work backwards--the presence of the hint elem disables the feature: my %default_feature = ( - array_base => 'feature_no$[', + array_base => 'no$[', ); my %feature_bundle = ( @@ -85,7 +85,8 @@ sub longest { print $pm "my %feature = (\n"; my $width = length longest keys %feature; for(sort { length $a <=> length $b } keys %feature) { - print $pm " $_" . " "x($width-length) . " => '$feature{$_}',\n"; + print $pm " $_" . " "x($width-length) + . " => 'feature_$feature{$_}',\n"; } print $pm ");\n\n"; @@ -93,7 +94,7 @@ print $pm "my %default_feature = (\n"; $width = length longest keys %default_feature; for(sort { length $a <=> length $b } keys %default_feature) { print $pm " $_" . " "x($width-length) - . " => '$default_feature{$_}',\n"; + . " => 'feature_$default_feature{$_}',\n"; } print $pm ");\n\n"; |