Calling "PRINT" on a tied STDERR can use G_DISCARD, as the result is ignored.

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index ac7dd57f66..915a6107a9 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;