Changeset 19616 for util

Timestamp:

01/21/08 22:50:23 (10 months ago)

Author:

lwall

Message:

[fudgeall] prepare to move fudge and fudgeall to t/spec

Files:

• util/fudgeall (modified) (2 diffs)

util/fudgeall

@@ -8 +8 @@
 use Cwd;
 my $top = getcwd;
+my $fudge;
 
-while (not -f "$top/util/fudge") {
-    die "Not inside appropriate directory\n" unless $top;
+TOP:
+while ($top) {
+    for ("$top/fudge",
+        "$top/spec/fudge",
+        "$top/t/spec/fudge",
+        "$top/perl6/t/spec/fudge",
+        "$top/languages/perl6/t/spec/fudge",
+    ) {
+        if (-f $_) {
+            $fudge = $_;
+            last TOP;
+        }
+    }
     $top =~ s!(.*)/(.*)!!;
+}
+if (not $fudge) {
+    for (split(/[:;]/, $ENV{PATH})) {
+        if (-f "$_/fudge") {
+            $fudge = "$_/fudge";
+            last;
+        }
+    }
 }
 
@@ -18 +38 @@
         my $pick;
         if ( $_ !~ m/\.$platform$/ ) {
-            chomp( $pick = `$^X $top/util/fudge $platform $_` );
+            chomp( $pick = `$^X $fudge $platform $_` );
         }
         defined $pick ? $pick : ();