perl.cvs.parrot
[Top] [All Lists]

[svn:parrot] r24702 - trunk/languages/eclectus

Subject: [svn:parrot] r24702 - trunk/languages/eclectus
From:
Date: Wed, 9 Jan 2008 02:13:44 -0800 PST
Newsgroups: perl.cvs.parrot

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"))
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r24702 - trunk/languages/eclectus, fperrad <=