gv.c: Explain the purpose of the <none>:: stash a bit.

It's primarily a historical oddity. Its main purpose is to store
variables after an exception from 'use strict "vars"':

    eval q{ use strict; $foo = 1 };
    warn keys %{"<none>::"};

diff --git a/gv.c b/gv.c
index c84e569..afa6a5e 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -1614,6 +1614,11 @@ S_find_default_stash(pTHX_ HV **stash, const char *name, STRLEN len,
             if (is_utf8)
                 SvUTF8_on(err);
             qerror(err);
+            /* To maintain the output of errors after the strict exception
+             * above, and to keep compat with older releases, rather than
+             * placing the variables in the pad, we place
+             * them in the <none>:: stash.
+             */
             gv = gv_fetchpvs("<none>::", GV_ADDMULTI, SVt_PVHV);
             if (!gv) {
                 /* symbol table under destruction */