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 (file)
--- 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_