From 021897e0cddffa1615b83551abd2136c5f0fbeee Mon Sep 17 00:00:00 2001
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Tue, 26 Oct 2010 15:58:55 -0700
Subject: [PATCH] Cleanup output from t/io/defout.t RT#78572

t/io/defout.t pollutes the output of 'make test':

  t/io/defout....................................................$a;
  # write
  ok

  The attached patch fixes this.
---
 t/io/defout.t | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/t/io/defout.t b/t/io/defout.t
index dda3b4c..a36872e 100644
--- a/t/io/defout.t
+++ b/t/io/defout.t
@@ -25,12 +25,13 @@ $stderr = 1; # whoops, PL_defoutgv no longer a GV!
 
 ok print(""), 'print';
 ok select(), 'select';
+
 $a = 'fooo';
 format STDERR =
-#@<<
-$a;
+@ @<<
+"#", $a
 .
-ok ! write(), 'write';
+ok((write())[0], 'write');
 
 ok($^, '$^');
 ok($~, '$~');
-- 
2.7.4