use "perl6-m.bat" on win32 for use in run()

rakudo · Feb 8, 2014 · 2c23914 · 2c23914
1 parent 4a95565
commit 2c23914
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/terms.pm b/src/core/terms.pm
@@ -159,7 +159,7 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
         'perl6-j';
 #?endif
 #?if moar
-        'perl6-m';
+        $VM<config><osname> eq 'MSWin32' ?? 'perl6-m.bat' !! 'perl6-m';
 #?endif
     nqp::bindkey(nqp::who(PROCESS), '$EXECUTABLE_NAME', $EXECUTABLE_NAME);
     my Mu $comp := nqp::getcomp('perl6');