From rick@bort.ca

autoload.patch

diff -pruN perl-current/pp_hot.c perl-current-dev/pp_hot.c
--- perl-current/pp_hot.c	2007-10-22 11:44:08.000000000 -0400
+++ perl-current-dev/pp_hot.c	2007-10-30 22:34:01.000000000 -0400
@@ -2717,9 +2717,14 @@ PP(pp_entersub)
 	}
 	/* should call AUTOLOAD now? */
 	else {
-try_autoload:
+try_autoload: 
+	  {
+	    const bool is_method = cLISTOP->op_last &&
+		(cLISTOP->op_last->op_type == OP_METHOD_NAMED ||
+		 cLISTOP->op_last->op_type == OP_METHOD);
+
 	    if ((autogv = gv_autoload4(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv),
-				   FALSE)))
+				   is_method)))
 	    {
 		cv = GvCV(autogv);
 	    }
@@ -2729,6 +2734,7 @@ 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 -pruN perl-current/t/lib/warnings/gv perl-current-dev/t/lib/warnings/gv
--- perl-current/t/lib/warnings/gv	2007-07-11 15:34:23.000000000 -0400
+++ perl-current-dev/t/lib/warnings/gv	2007-10-30 17:08:14.000000000 -0400
@@ -39,6 +39,8 @@ sub Other::AUTOLOAD { 1 } sub Other::fre
 @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.
 ########

Use of inherited AUTOLOAD for non-method is deprecated #9094

Description

Metadata

Metadata

Assignees

Labels

Type

Projects

Milestone

Relationships

Development

Issue actions