diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 06:47:41 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-24 09:25:21 -0800 |
commit | 0bb01b05aacbaf29e0a910c8f0bc3ab2eb39f8a0 (patch) | |
tree | bf083bf4597021ef244990b73929067072564169 /lib/feature.pm | |
parent | 223b1722e239dec6362760bb4d15561271c666bf (diff) | |
download | perl-0bb01b05aacbaf29e0a910c8f0bc3ab2eb39f8a0.tar.gz |
Deparse implicit with ‘use feature’
When a version declaration has been seen, it’s not possible to deparse
the code perfectly correctly, but using ‘no feature; use feature
"5.14"’ is a reasonable tradeoff. See also commit 1c74777c25.
This necessitated sorting %^H keys that are output to keep tests pass-
ing. Previously they were relying on phases of the moon.
Diffstat (limited to 'lib/feature.pm')
-rw-r--r-- | lib/feature.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/feature.pm b/lib/feature.pm index ff1dd6d44a..8dfb7aaf4b 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -7,7 +7,7 @@ package feature; our $VERSION = '1.25'; -my %feature = ( +our %feature = ( say => 'feature_say', state => 'feature_state', switch => 'feature_switch', @@ -31,9 +31,9 @@ $feature_bundle{"5.14"} = $feature_bundle{"5.11"}; $feature_bundle{"5.16"} = $feature_bundle{"5.15"}; $feature_bundle{"5.9.5"} = $feature_bundle{"5.10"}; -my $hint_shift = 26; -my $hint_mask = 0x1c000000; -my @hint_bundles = qw( default 5.10 5.11 5.15 ); +our $hint_shift = 26; +our $hint_mask = 0x1c000000; +our @hint_bundles = qw( default 5.10 5.11 5.15 ); # This gets set (for now) in $^H as well as in %^H, # for runtime speed of the uc/lc/ucfirst/lcfirst functions. |