[Catalyst-commits] r13535 - Catalyst-Runtime/5.80/trunk/t/aggregate

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-08-26 00:07:21 +0100 (Thu, 26 Aug 2010)
New Revision: 13535

Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_test.t
Log:
Fix test output, as per RT#56590

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_test.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_test.t	2010-08-25 22:53:20 UTC (rev 13534)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/unit_core_script_test.t	2010-08-25 23:07:21 UTC (rev 13535)
@@ -33,8 +33,8 @@
         } "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 };