Change 11536 by jhi@alpha on 2001/08/01 16:08:08
Subject: [patch] ithreads + refto bug
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Wed, 1 Aug 2001 09:47:28 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pp.c#290 edit
Differences ...
==== //depot/perl/pp.c#290 (text) ====
Index: perl/pp.c
--- perl/pp.c.~1~ Wed Aug 1 10:15:05 2001
+++ perl/pp.c Wed Aug 1 10:15:05 2001
@@ -467,7 +467,7 @@
SvTEMP_off(sv);
(void)SvREFCNT_inc(sv);
}
- else if (SvPADTMP(sv))
+ else if (SvPADTMP(sv) && !(isGV(sv) && GvIN_PAD(sv)))
sv = newSVsv(sv);
else {
SvTEMP_off(sv);
End of Patch.
