Change 11602 by jhi@alpha on 2001/08/07 13:52:41
Subject: Re: [ID 20010806.006] Can't read coderef from tied variable
From: Abhijit Menon-Sen <[EMAIL PROTECTED]>
Date: Tue, 7 Aug 2001 09:10:54 +0530
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pp_hot.c#248 edit
Differences ...
==== //depot/perl/pp_hot.c#248 (text) ====
Index: perl/pp_hot.c
--- perl/pp_hot.c.~1~ Tue Aug 7 08:00:05 2001
+++ perl/pp_hot.c Tue Aug 7 08:00:05 2001
@@ -2444,6 +2444,8 @@
}
if (SvGMAGICAL(sv)) {
mg_get(sv);
+ if (SvROK(sv))
+ goto got_rv;
sym = SvPOKp(sv) ? SvPVX(sv) : Nullch;
}
else
@@ -2455,6 +2457,7 @@
cv = get_cv(sym, TRUE);
break;
}
+ got_rv:
{
SV **sp = &sv; /* Used in tryAMAGICunDEREF macro. */
tryAMAGICunDEREF(to_cv);
End of Patch.
