diff options
| -rw-r--r-- | feature.h | 8 | ||||
| -rw-r--r-- | lib/feature.pm | 3 | ||||
| -rwxr-xr-x | regen/feature.pl | 1 |
3 files changed, 10 insertions, 2 deletions
@@ -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 dc5cb7df84..84ad9cbfa8 100644 --- 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 21e8a2bea7..d43abc0684 100755 --- 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', |