From 53b7400f0b7822d1dfe39e209c0729821f89ace3 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 29 Oct 2010 09:28:57 -0700
Subject: [PATCH] =?utf8?q?Use=20STDOUT=20in=20defout.t=20to=20suppress=20t?=
 =?utf8?q?hat=20=E2=80=98#foo=E2=80=99=20under=20TEST/harness?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 t/io/defout.t | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/t/io/defout.t b/t/io/defout.t
index a36872e..2cb7b9f 100644
--- a/t/io/defout.t
+++ b/t/io/defout.t
@@ -15,9 +15,9 @@ BEGIN {
 plan tests => 16;
 
 
-my $stderr = *STDERR;
-select($stderr);
-$stderr = 1; # whoops, PL_defoutgv no longer a GV!
+my $stdout = *STDOUT;
+select($stdout);
+$stdout = 1; # whoops, PL_defoutgv no longer a GV!
 # XXX It is a GV as of 5.13.7. Is this test file needed any more?
 
 # note that in the tests below, the return values aren't as important
@@ -27,7 +27,7 @@ ok print(""), 'print';
 ok select(), 'select';
 
 $a = 'fooo';
-format STDERR =
+format STDOUT =
 @ @<<
 "#", $a
 .
@@ -45,5 +45,9 @@ $= = 1; pass '$= = 1';
 $- = 1; pass '$- = 1';
 $% = 1; pass '$% = 1';
 $| = 1; pass '$| = 1';
-ok close(), 'close';
 
+# Switch to STDERR for this test, so we do not lose our test output
+my $stderr = *STDERR;
+select($stderr);
+$stderr = 1;
+ok close(), 'close';
-- 
2.7.4