]> git.vpit.fr Git - perl/modules/Thread-Cleanup.git/blobdiff - Cleanup.xs
Silence a compiler warning
[perl/modules/Thread-Cleanup.git] / Cleanup.xs
index 919bbff306c4be383e828301f972c66ff2617572..43ab9496eff85fb33ed27dbdb396190d844385c9 100644 (file)
@@ -67,7 +67,7 @@ PPCODE:
    PL_endav = newAV();
   av_unshift(PL_endav, 1);
   SvREFCNT_inc(cv);
-  if (!av_store(PL_endav, 0, cv))
+  if (!av_store(PL_endav, 0, (SV *) cv))
    SvREFCNT_dec(cv);
   sv_magicext((SV *) PL_endav, NULL, PERL_MAGIC_ext, &tc_endav_vtbl, NULL, 0);
  }