Changeset 4902 for src/Pugs/Embed

Timestamp:

06/21/05 14:30:14 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

6641

Message:

* util/version_h.pl -- Silenced the "filehandle STDIN reopened..." warning.
* src/Pugs/Embed/Parrot.hsc -- Don't only check %*ENV<PUGS_PARROT_OPTS> for

definedness only, but check if it actually contains some chars (as system
"parrot", "", "..." won't work).

Files:

• src/Pugs/Embed/Parrot.hsc (modified) (1 diff)

src/Pugs/Embed/Parrot.hsc

@@ -41 +41 @@
     -- so we use the next fastest CGP core.
     args <- getEnv "PUGS_PARROT_OPTS"
-    let args' | isJust args = fromJust args
-              | otherwise   = "-C"
+    let args' | isJust args && fromJust args /= "" = fromJust args
+              | otherwise                          = "-C"
     rawSystem cmd [args', file]
     return ()