diff options
author | Aaron Crane <arc@cpan.org> | 2015-06-11 17:24:13 +0100 |
---|---|---|
committer | Aaron Crane <arc@cpan.org> | 2015-07-13 14:08:34 +0100 |
commit | 262309092c2de925e7ae4a527174f8dc2a0ec7b7 (patch) | |
tree | fc20e8ab0b42c87c232e3b233556fafe2ac85076 /lib/B/Deparse.t | |
parent | de6cb0abd243e5772b9783a2cbeef5755a8267d6 (diff) | |
download | perl-262309092c2de925e7ae4a527174f8dc2a0ec7b7.tar.gz |
Delete experimental autoderef feature
Diffstat (limited to 'lib/B/Deparse.t')
-rw-r--r-- | lib/B/Deparse.t | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t index 2fb5b7580c..b4874a4a62 100644 --- a/lib/B/Deparse.t +++ b/lib/B/Deparse.t @@ -1365,6 +1365,7 @@ tr/a/b/r + $a =~ tr/p/q/r; <a,>; #### # [perl #91008] +# SKIP ?$] >= 5.023 && "autoderef deleted in this Perl version" # CONTEXT no warnings 'experimental::autoderef'; each $@; keys $~; @@ -1871,12 +1872,12 @@ my sub f {} print f(); >>>> use feature 'lexical_subs'; -BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x55\x01"} +BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x55"} my sub f { - BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x01"} + BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"} } -BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x01"} +BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"} print f(); #### # SKIP ?$] < 5.017004 && "lexical subs not implemented on this Perl version" @@ -1887,13 +1888,13 @@ state sub f {} print f(); >>>> use feature 'lexical_subs'; -BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x55\x01"} +BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x55"} CORE::state sub f { - BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x01"} + BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"} use feature 'state'; } -BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55\x01"} +BEGIN {${^WARNING_BITS} = "\x54\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x54\x55\x55\x55"} use feature 'state'; print f(); #### |