From f180df804d1cde858e3e94db2f42efcc697d07d9 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 16 Apr 2000 16:51:08 +0000 Subject: introduce illegal symbols into null package so that gv_fetchpv(...,TRUE) always returns a valid GV even when the symbol is trapped by strictures (avoids coredumps) TODO: the C hack needs similar treatment p4raw-id: //depot/perl@5908 --- perl.c | 1 + 1 file changed, 1 insertion(+) (limited to 'perl.c') diff --git a/perl.c b/perl.c index 578fafc3f1..04544b51e3 100644 --- a/perl.c +++ b/perl.c @@ -2425,6 +2425,7 @@ S_init_main_stash(pTHX) CopSTASH_set(&PL_compiling, PL_defstash); PL_debstash = GvHV(gv_fetchpv("DB::", GV_ADDMULTI, SVt_PVHV)); PL_globalstash = GvHV(gv_fetchpv("CORE::GLOBAL::", GV_ADDMULTI, SVt_PVHV)); + PL_nullstash = GvHV(gv_fetchpv("::", GV_ADDMULTI, SVt_PVHV)); /* We must init $/ before switches are processed. */ sv_setpvn(get_sv("/", TRUE), "\n", 1); } -- cgit v1.2.1