From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 14 Feb 2008 14:39:21 +0000 (+0000)
Subject: Revert change #33302. This change was wrong, since it was
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e623da313ab504bf323b0f65cb47dca22423be3;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/pp_hot.c b/pp_hot.c
index 61324bf..cd1a885 100644
--- 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");
diff --git a/t/lib/warnings/gv b/t/lib/warnings/gv
index 6086655..42565f2 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.
 ########