diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2017-08-28 12:52:10 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2017-10-08 12:05:04 -0700 |
| commit | 42bcad312582e88fc4e5bd1e9c2ad91a7bdac1c1 (patch) | |
| tree | 043d0cda3a360be710051a810ec1ac7a576db548 /perl.c | |
| parent | 04680144c43db3714671c554db48c5c4a8096517 (diff) | |
| download | perl-42bcad312582e88fc4e5bd1e9c2ad91a7bdac1c1.tar.gz | |
Don’t assign PL_curstash twice in init_main_stash
This commit:
commit 8990e3071044a96302560bbdb5706f3e74cf1bef
Author: Larry Wall <larry@netlabs.com>
Date: Fri Mar 18 00:00:00 1994 +0000
perl 5.0 alpha 6
added ‘curstash = defstash’ to perl.c:init_main_stash, which already
had such an assignment a few lines above. So it is redundant, and
always has been.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 1 |
1 files changed, 0 insertions, 1 deletions
@@ -3823,7 +3823,6 @@ S_init_main_stash(pTHX) #endif sv_grow(ERRSV, 240); /* Preallocate - for immediate signals. */ CLEAR_ERRSV(); - SET_CURSTASH(PL_defstash); CopSTASH_set(&PL_compiling, PL_defstash); PL_debstash = GvHV(gv_fetchpvs("DB::", GV_ADDMULTI, SVt_PVHV)); PL_globalstash = GvHV(gv_fetchpvs("CORE::GLOBAL::", GV_ADDMULTI, |