diff options
| author | Artur Bergman <sky@nanisky.com> | 2003-04-14 21:42:10 +0000 |
|---|---|---|
| committer | Artur Bergman <sky@nanisky.com> | 2003-04-14 21:42:10 +0000 |
| commit | 7765e7d69cf35e43ee75927d578a7a2a3e585151 (patch) | |
| tree | ce7e80cd06ddb0c1ea701a6a9c91cc11bfd210e5 /gv.c | |
| parent | 7e8961ecc77ac069ddd54d220ef48fd89f1122d6 (diff) | |
| download | perl-7765e7d69cf35e43ee75927d578a7a2a3e585151.tar.gz | |
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
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |