Fix SV leak in Perl_emulate_cop_io(), present since 8b850bd54aa90bd3.

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 38f0a05..6cd3d60 100644 (file)
--- a/ext/B/B.xs
+++ b/ext/B/B.xs
@@ -320,7 +320,7 @@ make_cop_io_object(pTHX_ COP *cop)
     Perl_emulate_cop_io(aTHX_ cop, value);
 
     if(SvOK(value)) {
-       return make_temp_object(aTHX_ newSVsv(value));
+       return make_sv_object(aTHX_ NULL, value);
     } else {
        SvREFCNT_dec(value);
        return make_sv_object(aTHX_ NULL, NULL);