update autounfudge.pl to deal with both build layouts

rakudo · Feb 15, 2009 · 27c64b5 · 27c64b5
1 parent a3fd610
commit 27c64b5
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/tools/autounfudge.pl b/tools/autounfudge.pl
@@ -258,9 +258,10 @@ sub tests_ok {
 }
 
 sub get_harness {
+    my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
     return TAP::Harness->new({
             verbosity   => -2,
-            exec        => ['../../parrot', '-G', 'perl6.pbc'],
+            exec        => [$parrot, '-G', 'perl6.pbc'],
             merge       => 1,
     });
 }