From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 22 Aug 2000 18:44:46 +0000 (+0000)
Subject: cSVOPo_*v things index into the current PL_curpad
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac33dcd172426c6cb708348aeea2c935d25047b9;p=p5sagit%2Fp5-mst-13.2.git

cSVOPo_*v things index into the current PL_curpad
under ithreads, which is different from the curpad
used by the XSUB.  (In other words, the code as-is
before this patch wouldn't work under ithreads.)
From Sarathy.

p4raw-id: //depot/perl@6776
---

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 9fbe4a3..f1f0e65 100644
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -708,8 +708,8 @@ PMOP_precomp(o)
 	if (rx)
 	    sv_setpvn(ST(0), rx->precomp, rx->prelen);
 
-#define SVOP_sv(o)	cSVOPo_sv
-#define SVOP_gv(o)	cGVOPo_gv
+#define SVOP_sv(o)     cSVOPo->op_sv
+#define SVOP_gv(o)     ((GV*)cSVOPo->op_sv)
 
 MODULE = B	PACKAGE = B::SVOP		PREFIX = SVOP_