Changeset 2600 for script

Timestamp:

05/01/05 17:23:45 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4152

Message:

* pugscc --pugs repaired!

Files:

• script/pugscc (modified) (1 diff)

script/pugscc

@@ -110 +110 @@
 if ($run) {
     if ($backend eq 'Parrot' and !-x '/usr/bin/env') {
-        system("parrot" => $out) == 0 or die $!;
+        system("parrot" => $out);
     }
     else {
-        system($out) == 0 or die $!;
+        system {$out} $out;
     }
 }