diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 18:44:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-22 18:44:46 +0000 |
| commit | ac33dcd172426c6cb708348aeea2c935d25047b9 (patch) | |
| tree | c431ef1b9b15ef2739105b0ea3b17bf2642e3954 /ext/B | |
| parent | 19adaf67a10f854fd19b7a4980e036b2eeaf05ff (diff) | |
| download | perl-ac33dcd172426c6cb708348aeea2c935d25047b9.tar.gz | |
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
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index 9fbe4a390e..f1f0e65781 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_ |