diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-14 14:39:21 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-02-14 14:39:21 +0000 |
commit | 7e623da313ab504bf323b0f65cb47dca22423be3 (patch) | |
tree | 8f6d504dfcf5e6d279d6c46542280b6fc1b7793e /pp_hot.c | |
parent | c91c3a7516528643b435e162ebf2189b64c15290 (diff) | |
download | perl-7e623da313ab504bf323b0f65cb47dca22423be3.tar.gz |
Revert change #33302. This change was wrong, since it was
using OP_ENTERSUB as a LISTOP, whereas it's a UNOP.
p4raw-link: @33302 on //depot/perl: 781e3f050073176aa21ffc243184a1cb57f4ec92
p4raw-id: //depot/perl@33307
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 10 |
1 files changed, 2 insertions, 8 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"); |