This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
feature.pl: Remove the feature_ prefix from the data
authorFather Chrysostomos <sprout@cpan.org>
Thu, 22 Dec 2011 18:07:27 +0000 (10:07 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 24 Dec 2011 17:25:13 +0000 (09:25 -0800)
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.

regen/feature.pl

index 018ed0f..aed9f54 100644 (file)
@@ -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";