From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 25 Aug 2010 23:07:21 +0000 (+0000)
Subject: Fix test output, as per RT#56590
X-Git-Tag: 5.80026~7^2~7
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=b50712cec312b5768f6a2b99b5efd6f3adb2dd54

Fix test output, as per RT#56590
---

diff --git a/t/aggregate/unit_core_script_test.t b/t/aggregate/unit_core_script_test.t
index 71d0e4b..e475651 100644
--- a/t/aggregate/unit_core_script_test.t
+++ b/t/aggregate/unit_core_script_test.t
@@ -33,8 +33,8 @@ sub run_test {
         } "new_with_options";
         ok $i;
         my $saved;
-        open( $saved, '<&'. STDIN->fileno )
-              or croak("Can't dup stdin: $!");
+        open( $saved, '>&'. STDOUT->fileno )
+            or croak("Can't dup stdout: $!");
         open( STDOUT, '>&='. $fh->fileno )
             or croak("Can't open stdout: $!");
         eval { $i->run };