diff options
| -rw-r--r-- | pp_hot.c | 10 | ||||
| -rw-r--r-- | t/lib/warnings/gv | 2 |
2 files changed, 2 insertions, 10 deletions
@@ -2735,14 +2735,9 @@ PP(pp_entersub) } /* should call AUTOLOAD now? */ else { -try_autoload: - { - const bool is_method = cLISTOP->op_last && - (cLISTOP->op_last->op_type == OP_METHOD_NAMED || - cLISTOP->op_last->op_type == OP_METHOD); - +try_autoload: if ((autogv = gv_autoload4(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), - is_method))) + FALSE))) { cv = GvCV(autogv); } @@ -2752,7 +2747,6 @@ try_autoload: gv_efullname3(sub_name, gv, NULL); DIE(aTHX_ "Undefined subroutine &%"SVf" called", SVfARG(sub_name)); } - } } if (!cv) DIE(aTHX_ "Not a CODE reference"); diff --git a/t/lib/warnings/gv b/t/lib/warnings/gv index 6086655383..42565f2325 100644 --- a/t/lib/warnings/gv +++ b/t/lib/warnings/gv @@ -39,8 +39,6 @@ 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 at - line 5. ######## |