Change 34578 by [EMAIL PROTECTED] on 2008/10/24 21:57:53
Subject: Re: changed method caching of SUPER (was Re: [EMAIL PROTECTED])
From: Dave Mitchell <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Fri, 24 Oct 2008 16:22:35 +0100
Affected files ...
... //depot/maint-5.8/perl/gv.c#118 edit
Differences ...
==== //depot/maint-5.8/perl/gv.c#118 (text) ====
Index: perl/gv.c
--- perl/gv.c#117~34432~ 2008-09-27 02:27:08.000000000 -0700
+++ perl/gv.c 2008-10-24 14:57:53.000000000 -0700
@@ -386,7 +386,7 @@
av = (gvp && (gv = *gvp) && isGV_with_GP(gv)) ? GvAV(gv) : NULL;
/* create and re-create @.*::SUPER::ISA on demand */
- if (!av || !SvMAGIC(av)) {
+ {
STRLEN packlen = strlen(hvname);
if (packlen >= 7 && strEQ(hvname + packlen - 7, "::SUPER")) {
End of Patch.
