Skip to content

Commit

Permalink
Add postderef_qq feature feature
Browse files Browse the repository at this point in the history
  • Loading branch information
Father Chrysostomos authored and rjbs committed Oct 5, 2013
1 parent eae81d9 commit 158becc
Show file tree
Hide file tree
Showing 3 changed files with 10 additions and 2 deletions.
8 changes: 7 additions & 1 deletion feature.h
Expand Up @@ -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 \
( \
Expand Down Expand Up @@ -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 \
Expand Down
3 changes: 2 additions & 1 deletion lib/feature.pm
Expand Up @@ -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',
);
Expand All @@ -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)],
);

Expand Down
1 change: 1 addition & 0 deletions regen/feature.pl
Expand Up @@ -30,6 +30,7 @@ BEGIN
array_base => 'arybase',
current_sub => '__SUB__',
lexical_subs => 'lexsubs',
postderef_qq => 'postderef_qq',
unicode_eval => 'unieval',
unicode_strings => 'unicode',
fc => 'fc',
Expand Down

0 comments on commit 158becc

Please sign in to comment.