From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 29 May 1999 16:49:39 +0000 (+0000)
Subject: avoid gv_check() recursive pit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19b6c8477cd2e910bb2cbaecb93e0595d8ecada1;p=p5sagit%2Fp5-mst-13.2.git

avoid gv_check() recursive pit

p4raw-id: //depot/perl@3506
---

diff --git a/gv.c b/gv.c
index 8df41c5..7ab7496 100644
--- 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))) {