diff options
author | Father Chrysostomos <sprout@cpan.org> | 2016-05-22 23:40:27 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2016-07-17 11:24:07 -0700 |
commit | 82d83da3ceaec700e85d7b7369710491e390fe97 (patch) | |
tree | c483ed96d249a96f8c53d767a6a7f5c4bc426e31 | |
parent | 88d5dae95a82e68de5736f2a3d81e179e1aa9546 (diff) | |
download | perl-82d83da3ceaec700e85d7b7369710491e390fe97.tar.gz |
Add declared_refs feature feature
-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
@@ -118,6 +118,12 @@ FEATURE_IS_ENABLED("unieval")) \ ) +#define FEATURE_MYREF_IS_ENABLED \ + ( \ + CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \ + FEATURE_IS_ENABLED("myref") \ + ) + #define FEATURE_UNICODE_IS_ENABLED \ ( \ (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_511 && \ diff --git a/lib/feature.pm b/lib/feature.pm index caa7326ba9..ddab73325c 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -20,6 +20,7 @@ our %feature = ( refaliasing => 'feature_refaliasing', postderef_qq => 'feature_postderef_qq', unicode_eval => 'feature_unieval', + declared_refs => 'feature_myref', unicode_strings => 'feature_unicode', ); @@ -28,7 +29,7 @@ our %feature_bundle = ( "5.11" => [qw(array_base say state switch unicode_strings)], "5.15" => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)], "5.23" => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)], - "all" => [qw(array_base bitwise current_sub evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)], + "all" => [qw(array_base bitwise current_sub declared_refs evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)], "default" => [qw(array_base)], ); diff --git a/regen/feature.pl b/regen/feature.pl index e8ececeb9a..78c7400e78 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -32,6 +32,7 @@ my %feature = ( refaliasing => 'refaliasing', postderef_qq => 'postderef_qq', unicode_eval => 'unieval', + declared_refs => 'myref', unicode_strings => 'unicode', fc => 'fc', signatures => 'signatures', |