develooper Front page | perl.perl5.porters | Postings from August 2001

[patch] ithreads + refto fix improvement

Thread Next
From:
Doug MacEachern
Date:
August 2, 2001 09:43
Subject:
[patch] ithreads + refto fix improvement
Message ID:
Pine.LNX.4.21.0108020939030.8991-100000@mako.covalent.net
IS_PADGV is a noop for non-ithreads Perls..

Index: pp.c
===================================================================
RCS file: /usr/local/cvs_repository/perl-current-mirror/pp.c,v
retrieving revision 1.1.1.34
diff -u -r1.1.1.34 pp.c
--- pp.c	2001/08/01 19:06:15	1.1.1.34
+++ pp.c	2001/08/02 16:32:36
@@ -467,7 +467,7 @@
 	SvTEMP_off(sv);
 	(void)SvREFCNT_inc(sv);
     }
-    else if (SvPADTMP(sv) && !(isGV(sv) && GvIN_PAD(sv)))
+    else if (SvPADTMP(sv) && !IS_PADGV(sv))
 	sv = newSVsv(sv);
     else {
 	SvTEMP_off(sv);


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About