diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-11-24 14:56:18 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-25 03:00:49 +0000 |
| commit | 306196c33b5ac60c7c253de83663fec31448e22d (patch) | |
| tree | e2804ca5d180cd2ef8ec64f5c39257adba9093d9 /util.c | |
| parent | d2fa5cc0d287cd15433ab9335a41b9d14c02edc5 (diff) | |
| download | perl-306196c33b5ac60c7c253de83663fec31448e22d.tar.gz | |
$$ readonly, take two
Message-ID: <20011124195618.A14614@blackrider>
p4raw-id: //depot/perl@13252
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -2057,8 +2057,11 @@ Perl_my_popen(pTHX_ char *cmd, char *mode) } #endif /* defined OS2 */ /*SUPPRESS 560*/ - if ((tmpgv = gv_fetchpv("$",TRUE, SVt_PV))) + if ((tmpgv = gv_fetchpv("$",TRUE, SVt_PV))) { + SvREADONLY_off(GvSV(tmpgv)); sv_setiv(GvSV(tmpgv), PerlProc_getpid()); + SvREADONLY_on(GvSV(tmpgv)); + } PL_forkprocess = 0; hv_clear(PL_pidstatus); /* we have no children */ return Nullfp; |