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 /perl.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 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -3565,8 +3565,11 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register #endif /* USE_ENVIRON_ARRAY */ } TAINT_NOT; - if ((tmpgv = gv_fetchpv("$",TRUE, SVt_PV))) + if ((tmpgv = gv_fetchpv("$",TRUE, SVt_PV))) { + SvREADONLY_off(GvSV(tmpgv)); sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid()); + SvREADONLY_on(GvSV(tmpgv)); + } } STATIC void |