diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-10-26 08:31:20 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-10-26 08:31:20 +0000 |
| commit | ca0c25f67f45e5dccb746852d8545d7ae29ed067 (patch) | |
| tree | b2f03bfd692f36b26f7a9d5f337c55578d3340c1 /perl.c | |
| parent | 6ac6a52b90121db9304782c76ae9243ce4205369 (diff) | |
| download | perl-ca0c25f67f45e5dccb746852d8545d7ae29ed067.tar.gz | |
Most platforms don't actually need PL_pidstatus, or the associated
.5K of code.
p4raw-id: //depot/perl@25850
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -259,7 +259,9 @@ perl_construct(pTHXx) } PL_sighandlerp = (Sighandler_t) Perl_sighandler; +#ifdef PERL_USES_PL_PIDSTATUS PL_pidstatus = newHV(); +#endif } PL_rs = newSVpvn("\n", 1); @@ -952,8 +954,10 @@ perl_destruct(pTHXx) PL_subname = Nullsv; SvREFCNT_dec(PL_linestr); PL_linestr = Nullsv; +#ifdef PERL_USES_PL_PIDSTATUS SvREFCNT_dec(PL_pidstatus); PL_pidstatus = Nullhv; +#endif SvREFCNT_dec(PL_toptarget); PL_toptarget = Nullsv; SvREFCNT_dec(PL_bodytarget); @@ -1770,6 +1774,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit) # ifdef PERL_USE_SAFE_PUTENV " PERL_USE_SAFE_PUTENV" # endif +#ifdef PERL_USES_PL_PIDSTATUS + " PERL_USES_PL_PIDSTATUS" +#endif # ifdef PL_OP_SLAB_ALLOC " PL_OP_SLAB_ALLOC" # endif |