This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
cSVOPo_*v things index into the current PL_curpad
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 22 Aug 2000 18:44:46 +0000 (18:44 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 22 Aug 2000 18:44:46 +0000 (18:44 +0000)
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

ext/B/B.xs

index 9fbe4a3..f1f0e65 100644 (file)
@@ -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_