nqp::openpipe handling for Windows.

Raku · Sep 25, 2013 · b591400 · b591400
1 parent a47a76b
commit b591400
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/io/ProcessHandle.java b/src/vm/jvm/runtime/org/perl6/nqp/io/ProcessHandle.java
@@ -21,7 +21,13 @@ public class ProcessHandle extends SyncHandle {
     Process process;
 
     public ProcessHandle(ThreadContext tc, String cmd, String dir, Map<String, String> env) {
-        ProcessBuilder pb = new ProcessBuilder("sh", "-c", cmd);
+        ProcessBuilder pb;
+        String os = System.getProperty("os.name").toLowerCase();
+        if (os.indexOf("win") >= 0) {
+            pb = new ProcessBuilder("cmd", "/c", cmd.replace('/', '\\'));
+        } else {
+            pb = new ProcessBuilder("sh", "-c", cmd);
+        }
         pb.directory(new File(dir));
         pb.redirectErrorStream(true);