From: Artur Bergman <sky@nanisky.com>
Date: Mon, 14 Apr 2003 21:42:10 +0000 (+0000)
Subject: Ook, run tests on correct build-dir next time.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7765e7d69cf35e43ee75927d578a7a2a3e585151;p=p5sagit%2Fp5-mst-13.2.git

Ook, run tests on correct build-dir next time.
We must check if the hv is a stash, otherwise we try to delete
something that is a HvNAME of null.....  tests pass better now

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

diff --git a/gv.c b/gv.c
index 0788dd6..d3f25d1 100644
--- a/gv.c
+++ b/gv.c
@@ -1240,7 +1240,7 @@ Perl_gp_free(pTHX_ GV *gv)
 
     SvREFCNT_dec(gp->gp_sv);
     SvREFCNT_dec(gp->gp_av);
-    if(gp->gp_hv && PL_stashcache)
+    if(gp->gp_hv && HvNAME(gp->gp_hv) && PL_stashcache)
         hv_delete(PL_stashcache, HvNAME(gp->gp_hv), strlen(HvNAME(gp->gp_hv)), G_DISCARD);
     SvREFCNT_dec(gp->gp_hv);
     SvREFCNT_dec(gp->gp_io);