Change 11553 by jhi@alpha on 2001/08/02 16:37:32
Subject: [patch] ithreads + refto fix improvement
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Thu, 2 Aug 2001 09:41:53 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pp.c#291 edit
Differences ...
==== //depot/perl/pp.c#291 (text) ====
Index: perl/pp.c
--- perl/pp.c.~1~ Thu Aug 2 10:45:06 2001
+++ perl/pp.c Thu Aug 2 10:45:06 2001
@@ -467,8 +467,8 @@
SvTEMP_off(sv);
(void)SvREFCNT_inc(sv);
}
- else if (SvPADTMP(sv) && !(isGV(sv) && GvIN_PAD(sv)))
- sv = newSVsv(sv);
+ else if (SvPADTMP(sv) && !IS_PADGV(sv))
+ sv = newSVsv(sv);
else {
SvTEMP_off(sv);
(void)SvREFCNT_inc(sv);
End of Patch.
