diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-11 10:32:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-11 10:32:54 +0000 |
| commit | 11faa288e292c27cb2ddc4ccdc483b523d26ce19 (patch) | |
| tree | cdd7a04e7b75f54261ca8d31b5dbd98d7053dd10 /ext/ByteLoader/byterun.c | |
| parent | 57843af05bc7863df9b9bfb6b37e3a29d08532a9 (diff) | |
| download | perl-11faa288e292c27cb2ddc4ccdc483b523d26ce19.tar.gz | |
avoid stash pointers in optree under USE_ITHREADS
p4raw-id: //depot/perl@4546
Diffstat (limited to 'ext/ByteLoader/byterun.c')
| -rw-r--r-- | ext/ByteLoader/byterun.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index f55feb758a..595fd4e18d 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -828,11 +828,11 @@ byterun(pTHXo_ struct bytestream bs) cCOP->cop_label = arg; break; } - case INSN_COP_STASH: /* 109 */ + case INSN_COP_STASHPV: /* 109 */ { - svindex arg; - BGET_svindex(arg); - *(SV**)&cCOP->cop_stash = arg; + pvcontents arg; + BGET_pvcontents(arg); + BSET_cop_stashpv(cCOP, arg); break; } case INSN_COP_FILE: /* 110 */ |