diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-31 20:20:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-31 20:20:28 +0000 |
| commit | c6ef9389991a02ccb3c8b66ed39e18cfbd747a43 (patch) | |
| tree | 295560132de1278b0175743863a0797943194605 /ext/ByteLoader/bytecode.h | |
| parent | 6a1bf16114964ea1c98edfe7ed99deccea161521 (diff) | |
| download | perl-c6ef9389991a02ccb3c8b66ed39e18cfbd747a43.tar.gz | |
Retract #20385.
p4raw-id: //depot/perl@20390
Diffstat (limited to 'ext/ByteLoader/bytecode.h')
| -rw-r--r-- | ext/ByteLoader/bytecode.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ext/ByteLoader/bytecode.h b/ext/ByteLoader/bytecode.h index 8ef6d383ee..bd62b2848c 100644 --- a/ext/ByteLoader/bytecode.h +++ b/ext/ByteLoader/bytecode.h @@ -172,8 +172,10 @@ typedef char *pvindex; #define BSET_newsv(sv, arg) \ STMT_START { \ - sv = NEWSV(0,0)); \ - SvUPGRADE(sv, (arg)); \ + sv = (arg == SVt_PVAV ? (SV*)newAV() : \ + arg == SVt_PVHV ? (SV*)newHV() : \ + NEWSV(666,0)); \ + SvUPGRADE(sv, arg); \ } STMT_END #define BSET_newsvx(sv, arg) STMT_START { \ BSET_newsv(sv, arg & SVTYPEMASK); \ |