X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Funit_core_script_test.t;h=e475651219338d2a10a3f9d74a92e551d6dbdac1;hp=5f5668126e525a630573335088ffb7689d494f3a;hb=9c74923de2304b8c8f0a7a2faa0854ad9b4d3a92;hpb=95389116fd165c265f5b7be42e1eedde13f38181

diff --git a/t/aggregate/unit_core_script_test.t b/t/aggregate/unit_core_script_test.t
index 5f56681..e475651 100644
--- a/t/aggregate/unit_core_script_test.t
+++ b/t/aggregate/unit_core_script_test.t
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 
+use Carp qw(croak);
 use FindBin qw/$Bin/;
 use lib "$Bin/../lib";
 
@@ -32,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 };