Update openpipe to inherit parent's STDERR on JVM.

This fixes RT #104794. Also updated test eliminate JVM special case.

Author: Donald Hunter

src/vm/jvm/runtime/org/perl6/nqp/io/ProcessHandle.java

@@ -2,21 +2,15 @@
 
 import java.io.File;
 import java.io.IOException;
-import java.io.InputStream;
-import java.io.OutputStream;
-import java.nio.ByteBuffer;
-import java.nio.channels.ByteChannel;
-import java.nio.channels.Channels;
-import java.nio.channels.ReadableByteChannel;
-import java.nio.channels.WritableByteChannel;
+import java.lang.ProcessBuilder.Redirect;
 import java.nio.charset.Charset;
 import java.util.Map;
 
 import org.perl6.nqp.runtime.ExceptionHandling;
 import org.perl6.nqp.runtime.ThreadContext;
 
 public class ProcessHandle extends SyncHandle {
-    
+
     Process process;
 
     public ProcessHandle(ThreadContext tc, String cmd, String dir, Map<String, String> env) {
@@ -28,13 +22,13 @@ public ProcessHandle(ThreadContext tc, String cmd, String dir, Map<String, Strin
             pb = new ProcessBuilder("sh", "-c", cmd);
         }
         pb.directory(new File(dir));
-        pb.redirectErrorStream(true);
+        pb.redirectError(Redirect.INHERIT);
 
         // Clear the JVM inherited environment and use provided only
         Map<String, String> pbEnv = pb.environment();
         pbEnv.clear();
         pbEnv.putAll(env);
-        
+
         try {
             process = pb.start();
             chan = new ProcessChannel(process, process.getOutputStream(), process.getInputStream());
@@ -43,7 +37,7 @@ public ProcessHandle(ThreadContext tc, String cmd, String dir, Map<String, Strin
             throw ExceptionHandling.dieInternal(tc, e);
         }
     }
-    
+
     public void flush(ThreadContext tc) {
         // Not provided.
     }

t/nqp/86-pipes.t

@@ -19,11 +19,9 @@ plan(14);
     ok( nqp::defined($q) == 1, 'nqp::openpipe nonexistent cmd');
 
     my $qstr := nqp::readallfh($q);
-    nqp::getcomp('nqp').backend.name eq 'moar' ??
-        ok( $qstr eq '', 'nqp::readallfh with a pipe nonexistent command') !!
     nqp::getcomp('nqp').backend.name eq 'parrot' ??
         ok( $qstr ~~ / 'doesnotexist' /, 'nqp::readallfh with a pipe nonexistent command') !!
-        ok( $qstr ~~ / 'not found' | 'not recognized' /, 'nqp::readallfh with a pipe nonexistent command');
+        ok( $qstr eq '', 'nqp::readallfh with a pipe nonexistent command');
 
     nqp::closefh($q); ok( 1, 'nqp::closefh with a pipe nonexistent command');
 }
@@ -43,11 +41,9 @@ plan(14);
     ok( nqp::defined($q) == 1, 'nqp::openpipe nonexistent cmd');
 
     my $qstr := nqp::readallfh($q);
-    nqp::getcomp('nqp').backend.name eq 'moar' ??
-        ok( $qstr eq '', 'nqp::readallfh with a pipe nonexistent command') !!
     nqp::getcomp('nqp').backend.name eq 'parrot' ??
         ok( $qstr ~~ / 'doesnotexist' /, 'nqp::readallfh with a pipe nonexistent command') !!
-        ok( $qstr ~~ / 'not found' | 'not recognized' /, 'nqp::readallfh with a pipe nonexistent command');
+        ok( $qstr eq '', 'nqp::readallfh with a pipe nonexistent command');
 
     ok( nqp::closefh_i($q) != 0, 'nqp::closefh_i with a pipe nonexistent command');
 }