diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse.t | 2 | ||||
| -rw-r--r-- | lib/feature.pm | 8 | ||||
| -rw-r--r-- | lib/warnings.pm | 12 |
3 files changed, 11 insertions, 11 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index 7a0c4d9973..75d05e4b73 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -1621,7 +1621,7 @@ use feature 'state'; main::state(); #### # lvalue references -# CONTEXT use feature "state", 'lvalue_refs', 'lexical_subs'; no warnings 'experimental'; +# CONTEXT use feature "state", 'refaliasing', 'lexical_subs'; no warnings 'experimental'; our $x; \$x = \$x; my $m; diff --git a/lib/feature.pm b/lib/feature.pm index fe78881717..b902d51fee 100644 --- a/lib/feature.pm +++ b/lib/feature.pm @@ -17,7 +17,7 @@ our %feature = ( array_base => 'feature_arybase', signatures => 'feature_signatures', current_sub => 'feature___SUB__', - lvalue_refs => 'feature_lvref', + refaliasing => 'feature_refaliasing', lexical_subs => 'feature_lexsubs', postderef_qq => 'feature_postderef_qq', unicode_eval => 'feature_unieval', @@ -28,7 +28,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 lvalue_refs postderef postderef_qq say signatures state switch unicode_eval unicode_strings)], + "all" => [qw(array_base current_sub evalbytes fc lexical_subs postderef postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)], "default" => [qw(array_base)], ); @@ -275,14 +275,14 @@ See L<perlsub/Signatures> for details. This feature is available from Perl 5.20 onwards. -=head2 The 'lvalue_refs' feature +=head2 The 'refaliasing' feature B<WARNING>: This feature is still experimental and the implementation may change in future versions of Perl. For this reason, Perl will warn when you use the feature, unless you have explicitly disabled the warning: - no warnings "experimental::lvalue_refs"; + no warnings "experimental::refaliasing"; This enables aliasing via assignment to references: diff --git a/lib/warnings.pm b/lib/warnings.pm index b2062915ff..05a1198d79 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -93,7 +93,7 @@ our %Offsets = ( # Warnings Categories added in Perl 5.021 - 'experimental::lvalue_refs'=> 120, + 'experimental::refaliasing'=> 120, 'experimental::win32_perlio'=> 122, 'missing' => 124, 'redundant' => 126, @@ -114,8 +114,8 @@ our %Bits = ( 'experimental::autoderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [56] 'experimental::lexical_subs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00", # [52] 'experimental::lexical_topic'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00", # [53] - 'experimental::lvalue_refs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [60] 'experimental::postderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00", # [57] + 'experimental::refaliasing'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [60] 'experimental::regex_sets'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00", # [54] 'experimental::signatures'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [58] 'experimental::smartmatch'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00", # [55] @@ -181,8 +181,8 @@ our %DeadBits = ( 'experimental::autoderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [56] 'experimental::lexical_subs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00", # [52] 'experimental::lexical_topic'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00", # [53] - 'experimental::lvalue_refs'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [60] 'experimental::postderef'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00", # [57] + 'experimental::refaliasing'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [60] 'experimental::regex_sets'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00", # [54] 'experimental::signatures'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [58] 'experimental::smartmatch'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00", # [55] @@ -234,7 +234,7 @@ our %DeadBits = ( ); $NONE = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"; -$DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x15\x05", # [2,56,52,53,60,57,54,58,55,61,4,22,23,25] +$DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x15\x05", # [2,56,52,53,57,60,54,58,55,61,4,22,23,25] $LAST_BIT = 128 ; $BYTES = 16 ; @@ -726,10 +726,10 @@ The current hierarchy is: | | | +- experimental::lexical_topic | | - | +- experimental::lvalue_refs - | | | +- experimental::postderef | | + | +- experimental::refaliasing + | | | +- experimental::regex_sets | | | +- experimental::signatures |