avoid gv_check() recursive pit

p4raw-id: //depot/perl@3506

diff --git a/gv.c b/gv.c
index 8df41c5..7ab7496 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -892,7 +892,7 @@ gv_check(HV *stash)
            if (HeKEY(entry)[HeKLEN(entry)-1] == ':' &&
                (gv = (GV*)HeVAL(entry)) && (hv = GvHV(gv)) && HvNAME(hv))
            {
-               if (hv != PL_defstash)
+               if (hv != PL_defstash && hv != stash)
                     gv_check(hv);              /* nested package */
            }
            else if (isALPHA(*HeKEY(entry))) {