fix some (mostly MAD) compiler warnings

p4raw-id: //depot/perl@31209

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 46862bf53a..6819a8e7e0 100644
--- a/toke.c
+++ b/toke.c
@@ -1279,7 +1279,7 @@ S_curmad(pTHX_ char slot, SV *sv)
     /* keep a slot open for the head of the list? */
     if (slot != '_' && *where && (*where)->mad_key == '^') {
 	(*where)->mad_key = slot;
-	sv_free((*where)->mad_val);
+	sv_free((SV*)((*where)->mad_val));
 	(*where)->mad_val = (void*)sv;
     }
     else