Add postderef_qq feature feature

diff --git a/feature.h b/feature.h
index ef45858..c98a5b3 100644 (file)
--- a/feature.h
+++ b/feature.h
@@ -27,7 +27,7 @@
           & HINT_LOCALIZE_HH)                                            \
            ? Perl_feature_is_enabled(aTHX_ STR_WITH_LEN(name)) : FALSE)
 /* The longest string we pass in.  */
-#define MAX_FEATURE_LEN (sizeof("evalbytes")-1)
+#define MAX_FEATURE_LEN (sizeof("postderef_qq")-1)
 
 #define FEATURE_FC_IS_ENABLED \
     ( \
@@ -93,6 +93,12 @@
         FEATURE_IS_ENABLED("lexsubs") \
     )
 
+#define FEATURE_POSTDEREF_QQ_IS_ENABLED \
+    ( \
+       CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+        FEATURE_IS_ENABLED("postderef_qq") \
+    )
+
 #define FEATURE_UNIEVAL_IS_ENABLED \
     ( \
        CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_515 \

diff --git a/lib/feature.pm b/lib/feature.pm
index dc5cb7d..84ad9cb 100644 (file)
--- a/lib/feature.pm
+++ b/lib/feature.pm
@@ -17,6 +17,7 @@ our %feature = (
     array_base      => 'feature_arybase',
     current_sub     => 'feature___SUB__',
     lexical_subs    => 'feature_lexsubs',
+    postderef_qq    => 'feature_postderef_qq',
     unicode_eval    => 'feature_unieval',
     unicode_strings => 'feature_unicode',
 );
@@ -25,7 +26,7 @@ our %feature_bundle = (
     "5.10"    => [qw(array_base say state switch)],
     "5.11"    => [qw(array_base say state switch unicode_strings)],
     "5.15"    => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)],
-    "all"     => [qw(array_base current_sub evalbytes fc lexical_subs postderef say state switch unicode_eval unicode_strings)],
+    "all"     => [qw(array_base current_sub evalbytes fc lexical_subs postderef postderef_qq say state switch unicode_eval unicode_strings)],
     "default" => [qw(array_base)],
 );
 

diff --git a/regen/feature.pl b/regen/feature.pl
index 21e8a2b..d43abc0 100755 (executable)
--- a/regen/feature.pl
+++ b/regen/feature.pl
@@ -30,6 +30,7 @@ my %feature = (
     array_base      => 'arybase',
     current_sub     => '__SUB__',
     lexical_subs    => 'lexsubs',
+    postderef_qq    => 'postderef_qq',
     unicode_eval    => 'unieval',
     unicode_strings => 'unicode',
     fc              => 'fc',