From 7765e7d69cf35e43ee75927d578a7a2a3e585151 Mon Sep 17 00:00:00 2001 From: Artur Bergman Date: Mon, 14 Apr 2003 21:42:10 +0000 Subject: [PATCH] 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 --- gv.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 2.7.4