From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 24 Oct 2010 16:23:17 +0000 (+0100)
Subject: Fix SV leak in Perl_emulate_cop_io(), present since 8b850bd54aa90bd3.
X-Git-Tag: accepted/trunk/20130322.191538~7189
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=23098a26ae8f44fa7dff4159b4876faab0559a64;p=platform%2Fupstream%2Fperl.git

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
--- 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);