From b220e8cd5bb9b66ed60b059f802b49aabb4b520e Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 5 Jan 2011 16:39:50 +0000
Subject: [PATCH] Calling "PRINT" on a tied STDERR can use G_DISCARD, as the
 result is ignored.

---
 util.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util.c b/util.c
index ac7dd57..915a610 100644
--- a/util.c
+++ b/util.c
@@ -1427,7 +1427,7 @@ Perl_write_to_stderr(pTHX_ SV* msv)
 	PUSHs(SvTIED_obj(MUTABLE_SV(io), mg));
 	PUSHs(msv);
 	PUTBACK;
-	call_method("PRINT", G_SCALAR);
+	call_method("PRINT", G_SCALAR | G_DISCARD);
 
 	POPSTACK;
 	FREETMPS;
-- 
2.7.4