|
|
Author: fperrad
Date: Wed Jan 9 02:13:42 2008
New Revision: 24702
Modified:
trunk/languages/eclectus/tests-driver.scm
Log:
[eclectus]
- fix quoting on Windows
Modified: trunk/languages/eclectus/tests-driver.scm
==============================================================================
--- trunk/languages/eclectus/tests-driver.scm (original)
+++ trunk/languages/eclectus/tests-driver.scm Wed Jan 9 02:13:42 2008
@@ -60,7 +60,7 @@
; TODO: can I use (directory-separator) in petite?
(define *path-to-parrot*
- (if (fxzero? (system "perl -MEnglish -e 'exit \\$OSNAME =~ m/Win/ ? 1 :
0;'"))
+ (if (fxzero? (system "perl -e \"exit($^O eq q{MSWin32} ? 1 : 0)\""))
"../../parrot"
"..\\..\\parrot"))
|
|