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.

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";