Changeset 19583 for util

Timestamp:

01/19/08 03:23:22 (10 months ago)

Author:

lwall

Message:

[fudgeall] depugsify and delinuxify

Files:

• util/fudgeall (modified) (1 diff)

util/fudgeall

@@ -5 +5 @@
 
 my $platform = shift;
+@ARGV = <@ARGV> if $^O eq 'MSWin32';
 
 use Cwd;
-my $dir = getcwd;
+my $top = getcwd;
 
-my $SPEC = $dir =~ /\bspec\b/;
-while (not -f "$dir/util/fudge") {
-    die "Not inside pugs directory\n" unless $dir;
-    $dir =~ s!(.*)/(.*)!!;
+while (not -f "$top/util/fudge") {
+    die "Not inside appropriate directory\n" unless $top;
+    $top =~ s!(.*)/(.*)!!;
 }
 
 print join(' ',
     map {
-        if ($SPEC or m!\bspec\b!) {
-            chomp(my $pick = `$dir/util/fudge $platform $_`);
-            $pick;
-        }
-        else {
-            $_;
-        }
+        chomp(my $pick = `$top/util/fudge $platform $_`);
+        $pick;
     } @ARGV
 ), "\n";