Change 33307 by [EMAIL PROTECTED] on 2008/02/14 14:39:21
Revert change #33302. This change was wrong, since it was
using OP_ENTERSUB as a LISTOP, whereas it's a UNOP.
Affected files ...
... //depot/perl/pp_hot.c#570 edit
... //depot/perl/t/lib/warnings/gv#9 edit
Differences ...
==== //depot/perl/pp_hot.c#570 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c#569~33302~ 2008-02-13 10:39:50.000000000 -0800
+++ perl/pp_hot.c 2008-02-14 06:39:21.000000000 -0800
@@ -2735,14 +2735,9 @@
}
/* 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 @@
gv_efullname3(sub_name, gv, NULL);
DIE(aTHX_ "Undefined subroutine &%"SVf" called",
SVfARG(sub_name));
}
- }
}
if (!cv)
DIE(aTHX_ "Not a CODE reference");
==== //depot/perl/t/lib/warnings/gv#9 (text) ====
Index: perl/t/lib/warnings/gv
--- perl/t/lib/warnings/gv#8~33302~ 2008-02-13 10:39:50.000000000 -0800
+++ perl/t/lib/warnings/gv 2008-02-14 06:39:21.000000000 -0800
@@ -39,8 +39,6 @@
@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.
########
End of Patch.
