diff options
author | Abigail <abigail@abigail.be> | 2017-06-06 23:16:30 +0200 |
---|---|---|
committer | Abigail <abigail@abigail.be> | 2017-06-06 23:17:22 +0200 |
commit | 64278e8ca74bf6743c65ced4c5002cdb054b2357 (patch) | |
tree | 6f7bf6a20e43dd16080275aeb5502d7ee209c81e /t/lib | |
parent | bb4830e68bcd02036b9e04bea8476c8f4583e3ba (diff) | |
download | perl-64278e8ca74bf6743c65ced4c5002cdb054b2357.tar.gz |
Fatalize inheriting AUTOLOAD for non-methods.
This was deprecated in 5.004.
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/warnings/gv | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/t/lib/warnings/gv b/t/lib/warnings/gv index c8e2b89acd..c053d7d45d 100644 --- a/t/lib/warnings/gv +++ b/t/lib/warnings/gv @@ -3,11 +3,6 @@ Can't locate package %s for @%s::ISA @ISA = qw(Fred); joe() - Use of inherited AUTOLOAD for non-method %s::%.*s() is deprecated - sub Other::AUTOLOAD { 1 } sub Other::fred {} - @ISA = qw(Other) ; - fred() ; - $# is no longer supported $* is no longer supported @@ -39,26 +34,6 @@ EXPECT Undefined subroutine &main::joe called at - line 3. ######## # gv.c -sub Other::AUTOLOAD { 1 } sub Other::fred {} -@ISA = qw(Other) ; -use warnings 'deprecated' ; -fred() ; -my $x = \&barney; -(bless[])->barney; -EXPECT -Use of inherited AUTOLOAD for non-method main::fred() is deprecated. This will be fatal in Perl 5.28 at - line 5. -######## -# gv.c -use utf8; -use open qw( :utf8 :std ); -sub Oᕞʀ::AUTOLOAD { 1 } sub Oᕞʀ::fᕃƌ {} -@ISA = qw(Oᕞʀ) ; -use warnings 'deprecated' ; -fᕃƌ() ; -EXPECT -Use of inherited AUTOLOAD for non-method main::fᕃƌ() is deprecated. This will be fatal in Perl 5.28 at - line 7. -######## -# gv.c $a = ${"#"}; $a = ${"*"}; no warnings 'deprecated' ; |