From 2c23914c0819148193ee510d48f7bb3f41b52270 Mon Sep 17 00:00:00 2001
From: Tobias Leich <email@froggs.de>
Date: Sat, 8 Feb 2014 22:10:05 +0100
Subject: [PATCH] use "perl6-m.bat" on win32 for use in run()

---
 src/core/terms.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/terms.pm b/src/core/terms.pm
index 75e04e4e419..c3567e0cbc3 100644
--- 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');