--- Catalyst-Runtime-5.80022/t/aggregate/unit_core_script_test.t-	2009-12-01 02:02:39.000000000 +0300

+++ Catalyst-Runtime-5.80022/t/aggregate/unit_core_script_test.t	2010-04-20 01:03:09.608764415 +0400

@@ -32,8 +32,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 };