From 23098a26ae8f44fa7dff4159b4876faab0559a64 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 24 Oct 2010 17:23:17 +0100
Subject: [PATCH] Fix SV leak in Perl_emulate_cop_io(), present since
 8b850bd54aa90bd3.

---
 ext/B/B.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/B/B.xs b/ext/B/B.xs
index 38f0a05..6cd3d60 100644
--- 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);
-- 
2.7.4