Changeset 1025 for script

Timestamp:

03/22/05 21:07:11 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

2417

Message:

* win32 hates exec()

Files:

• script/pugscc (modified) (2 diffs)

script/pugscc

@@ -58 +58 @@
     $out =~ s{\..*}{};
 }
-$out .= ($^O eq 'MSWin32') ? ".exe" : ".out";
+
+if ($backend eq 'Parrot') {
+    $out .= ".pir";
+}
+else {
+    $out .= ($^O eq 'MSWin32') ? ".exe" : ".out";
+}
 
 unlink "dump.ast";
@@ -97 +103 @@
 if ($run) {
     if ($backend eq 'Parrot' and !-x '/usr/bin/env') {
-        exec parrot => $out;
+        system("parrot" => $out) == 0 or die $!;
     }
     else {