svn commit: r1826763 - /httpd/test/framework/trunk/t/ab/base.t

[rj...@apache.org]

Author: rjung
Date: Thu Mar 15 01:17:19 2018
New Revision: 1826763

URL: http://svn.apache.org/viewvc?rev=1826763&view=rev
Log:
Fix test failures on RHEL 6 and SLES 11.
Error message was:
"open3: close(0) failed: Bad file descriptor"

The fix uses open3 like documented in perldoc.
Works for me on Solaris 10, RHEL 6, RHEL 7,
SLES 11 and SLES12.

Modified:
    httpd/test/framework/trunk/t/ab/base.t

Modified: httpd/test/framework/trunk/t/ab/base.t
URL: http://svn.apache.org/viewvc/httpd/test/framework/trunk/t/ab/base.t?rev=1826763&r1=1826762&r2=1826763&view=diff
==============================================================================
--- httpd/test/framework/trunk/t/ab/base.t (original)
+++ httpd/test/framework/trunk/t/ab/base.t Thu Mar 15 01:17:19 2018
@@ -4,6 +4,7 @@ use warnings FATAL => 'all';
 use Apache::Test;
 use Apache::TestConfig;
 use IPC::Open3;
+use Symbol;
 use File::Spec::Functions qw(catfile);
 
 my $vars = Apache::Test::vars();
@@ -13,7 +14,8 @@ plan tests => ($vars->{ssl_module_name}
 sub run_and_gather_output {
     my $command = shift;
     print "# running: ", $command, "\n";
-    my ($cin, $cout, $cerr) = (0, 0, 0);
+    my ($cin, $cout, $cerr);
+    $cerr = gensym();
     my $pid = open3($cin, $cout, $cerr, $command);
     waitpid( $pid, 0 );
     my $status = $? >> 8;