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<package;> hack needs similar treatment

p4raw-id: //depot/perl@5908

1 files changed, 1 insertions, 0 deletions

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("<none>::", GV_ADDMULTI, SVt_PVHV));
     /* We must init $/ before switches are processed. */
     sv_setpvn(get_sv("/", TRUE), "\n", 1);
 }