From b9a36c95eb3774221010dacb932ad1c45b709677 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 15 Sep 2013 16:20:58 -0700 Subject: [PATCH] Add postderef feature feature --- feature.h | 6 ++++++ lib/feature.pm | 3 ++- regen/feature.pl | 1 + 3 files changed, 9 insertions(+), 1 deletion(-) diff --git a/feature.h b/feature.h index 215a4d5..ef45858 100644 --- a/feature.h +++ b/feature.h @@ -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 78fae2e..eb1e85c 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 377cd71..41840ab 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', -- 2.7.4