diff options
| -rw-r--r-- | feature.h | 6 | ||||
| -rw-r--r-- | lib/feature.pm | 3 | ||||
| -rwxr-xr-x | regen/feature.pl | 1 |
3 files changed, 9 insertions, 1 deletions
@@ -67,6 +67,12 @@ FEATURE_IS_ENABLED("evalbytes")) \ ) +#define FEATURE_POSTDEREF_IS_ENABLED \ + ( \ + CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \ + FEATURE_IS_ENABLED("postderef") \ + ) + #define FEATURE_ARYBASE_IS_ENABLED \ ( \ CURRENT_FEATURE_BUNDLE <= FEATURE_BUNDLE_511 \ diff --git a/lib/feature.pm b/lib/feature.pm index 78fae2e7cb..eb1e85c6a3 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -13,6 +13,7 @@ our %feature = ( state => 'feature_state', switch => 'feature_switch', evalbytes => 'feature_evalbytes', + postderef => 'feature_postderef', array_base => 'feature_arybase', current_sub => 'feature___SUB__', lexical_subs => 'feature_lexsubs', @@ -24,7 +25,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 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)], "default" => [qw(array_base)], ); diff --git a/regen/feature.pl b/regen/feature.pl index 377cd71264..41840ab66a 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -26,6 +26,7 @@ my %feature = ( state => 'state', switch => 'switch', evalbytes => 'evalbytes', + postderef => 'postderef', array_base => 'arybase', current_sub => '__SUB__', lexical_subs => 'lexsubs', |