diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2003-07-21 00:36:02 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-27 15:48:20 +0000 |
| commit | 7996736c5ecb6da6273386229ce113837049152c (patch) | |
| tree | 8890e38e9c2e349f70832a77e853ad6672182d1d /sv.c | |
| parent | 2edcda664a46cf47ed5ee5520834c7e424efc8fd (diff) | |
| download | perl-7996736c5ecb6da6273386229ce113837049152c.tar.gz | |
Re: [PATCH] Re: Storing &PL_sv_undef as a hash key with perl-5.8.x
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <006801c34efe$8aac1920$0c2f1fac@R2D2>
p4raw-id: //depot/perl@20224
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -10913,6 +10913,11 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, SvNVX(&PL_sv_yes) = 1; ptr_table_store(PL_ptr_table, &proto_perl->Isv_yes, &PL_sv_yes); + SvANY(&PL_sv_placeholder) = NULL; + SvREFCNT(&PL_sv_placeholder)= (~(U32)0)/2; + SvFLAGS(&PL_sv_placeholder) = SVf_READONLY|SVt_NULL; + ptr_table_store(PL_ptr_table, &proto_perl->Isv_placeholder, &PL_sv_placeholder); + /* create (a non-shared!) shared string table */ PL_strtab = newHV(); HvSHAREKEYS_off(PL_strtab); |