avoid warning on type-mismatch

p4raw-id: //depot/perl@5383

diff --git a/ext/DynaLoader/dlutils.c b/ext/DynaLoader/dlutils.c
index fc4cd75..9423085 100644 (file)
--- a/ext/DynaLoader/dlutils.c
+++ b/ext/DynaLoader/dlutils.c
@@ -45,7 +45,7 @@ dl_unload_all_files(pTHXo_ void *unused)
            PUSHMARK(SP);
            XPUSHs(sv_2mortal(dl_libref));
            PUTBACK;
-           call_sv(sub, G_DISCARD);
+           call_sv((SV*)sub, G_DISCARD);
            FREETMPS;
            LEAVE;
         }