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 /perl.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 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -181,6 +181,9 @@ perl_construct(pTHXx) SvNV(&PL_sv_yes); SvREADONLY_on(&PL_sv_yes); SvREFCNT(&PL_sv_yes) = (~(U32)0)/2; + + SvREADONLY_on(&PL_sv_placeholder); + SvREFCNT(&PL_sv_placeholder) = (~(U32)0)/2; } PL_sighandlerp = Perl_sighandler; @@ -783,6 +786,9 @@ perl_destruct(pTHXx) SvREFCNT(&PL_sv_undef) = 0; SvREADONLY_off(&PL_sv_undef); + SvREFCNT(&PL_sv_placeholder) = 0; + SvREADONLY_off(&PL_sv_placeholder); + Safefree(PL_origfilename); Safefree(PL_reg_start_tmp); if (PL_reg_curpm) |