Revert change #33302. This change was wrong, since it was
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 14 Feb 2008 14:39:21 +0000 (14:39 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 14 Feb 2008 14:39:21 +0000 (14:39 +0000)
using OP_ENTERSUB as a LISTOP, whereas it's a UNOP.
p4raw-link: @33302 on //depot/perl: 781e3f050073176aa21ffc243184a1cb57f4ec92

p4raw-id: //depot/perl@33307

pp_hot.c
t/lib/warnings/gv

index 61324bf..cd1a885 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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");
index 6086655..42565f2 100644 (file)
@@ -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.
 ########