Change 11040 by jhi@alpha on 2001/06/30 13:00:24
Subject: [PATCH] weakref fix 2, not yet there
From: Artur Bergman <[EMAIL PROTECTED]>
Date: Sat, 30 Jun 2001 01:18:16 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/sv.c#429 edit
Differences ...
==== //depot/perl/sv.c#429 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Sat Jun 30 07:15:05 2001
+++ perl/sv.c Sat Jun 30 07:15:05 2001
@@ -8628,6 +8628,18 @@
else if (!GvCV(gv)) {
GvCV(gv) = (CV*)sv;
}
+ else if(mg->mg_type == PERL_MAGIC_backref) {
+ AV *av = (AV*) mg->mg_obj;
+ SV **svp;
+ I32 i;
+ nmg->mg_obj = (SV*)newAV();
+ svp = AvARRAY(av);
+ i = AvFILLp(av);
+ while (i >= 0) {
+ av_push((AV*)nmg->mg_obj,sv_dup(svp[i],param));
+ i--;
+ }
+ }
else {
/* CvPADLISTs cannot be shared */
if (!CvXSUB(GvCV(gv))) {
End of Patch.
