summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorGeorge Greer <perl@greerga.m-l.org>2011-02-06 11:47:21 -0500
committerGeorge Greer <perl@greerga.m-l.org>2011-02-06 11:47:21 -0500
commitb9d2ea5ba3215af3e27ecf994cfded2599a1d4d2 (patch)
treeaab86bc88888c2653f4e963ae0cb1479e93959f8 /gv.c
parente2b4e8e0cf6d562da5b854c27d3237f159eb7b48 (diff)
downloadperl-b9d2ea5ba3215af3e27ecf994cfded2599a1d4d2.tar.gz
Two Safefree() changes to make -DPERL_POISON builds work again.
The poison exposes a failure in t/op/magic: panic: corrupt saved stack index at - line 6. FAILED at test 7
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 56f7df6ae0..9a259e0c8a 100644
--- a/gv.c
+++ b/gv.c
@@ -1085,7 +1085,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
GvMULTI_on(gv);
}
if (key != name)
- Safefree((char *)key);
+ Safefree(key);
if (!gv || gv == (const GV *)&PL_sv_undef)
return NULL;