X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FThread-Cleanup.git;a=blobdiff_plain;f=Cleanup.xs;fp=Cleanup.xs;h=43ab9496eff85fb33ed27dbdb396190d844385c9;hp=919bbff306c4be383e828301f972c66ff2617572;hb=adfcfb78d604012463e00090dfb549381d98cd6e;hpb=95f8377579dd625843dcace2463165ae5a8c8282 diff --git a/Cleanup.xs b/Cleanup.xs index 919bbff..43ab949 100644 --- a/Cleanup.xs +++ b/Cleanup.xs @@ -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); }