Item1089: Gilmar found out the issue. <& dups the file with a differe…

…nt file descriptor. What we want is <&= that creates another perl filehandle, with the same fileno

git-svn-id: http://svn.foswiki.org/trunk@2526 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

UnitTestContrib/lib/Unit/CGIEngine.pm

@@ -98,14 +98,14 @@ sub make_request {
     my ( $env, $in ) = _req2cgi($req);
 
     # Saving STDIN
-    open my $stdin, '<&', \*STDIN or die "Can't dup STDIN: $!";
+    open my $stdin, '<&=', \*STDIN or die "Can't dup STDIN: $!";
     close STDIN;
 
     # Redirecting STDIN to the CGI input
     open STDIN, '<', $in or die "Can't redirect STDIN to \$in: $!";
 
     # Saving STDOUT
-    open my $stdout, '>&', \*STDOUT or die "Can't dup STDOUT: $!";
+    open my $stdout, '>&=', \*STDOUT or die "Can't dup STDOUT: $!";
     close STDOUT;
     my $out = '';
 
@@ -118,11 +118,11 @@ sub make_request {
     };
 
     # Restoring STDIN
-    open STDIN, '<&', $stdin or die "Can't restore STDIN: $!";
+    open STDIN, '<&=', $stdin or die "Can't restore STDIN: $!";
     close $stdin;
 
     # Restoring STDOUT
-    open STDOUT, '>&', $stdout or die "Can't restore STDOUT: $!";
+    open STDOUT, '>&=', $stdout or die "Can't restore STDOUT: $!";
     close $stdout;
     return HTTP::Message->parse($out);
 }

UnitTestContrib/test/unit/EngineTests.pm

@@ -32,10 +32,6 @@ sub list_tests {
         print STDERR 'Install libwww-perl in order to run EngineTests', "\n";
         return ();
     }
-    # FIXME - when the problem with Emulated Safe Pipes will be solved
-    print STDERR 'Disabled for now', "\n";
-    return ();
-    # End of FIXME
     return $this->SUPER::list_tests(@_);
 }