handle different build layout in in update_passing_test_data.pl

rakudo · Feb 15, 2009 · 314d8ce · 314d8ce
1 parent 2c972d7
commit 314d8ce
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tools/update_passing_test_data.pl b/tools/update_passing_test_data.pl
@@ -16,7 +16,7 @@ =head1 DESCRIPTION
 there's a good reason for them not already being included.
 
 This script should be called from the main Rakudo directory (ie
-C<languages/perl6/> relative to parrot).
+C<languages/rakudo/> relative to parrot).
 
 =cut
 
@@ -28,6 +28,7 @@ =head1 DESCRIPTION
 use File::Find;
 use Data::Dumper;
 
+my $parrot = -d 'parrot' ? 'parrot/parrot' : '../../parrot';
 
 my %not_process;
 {
@@ -91,7 +92,7 @@ sub read_specfile {
 sub get_harness {
     return TAP::Harness->new({
             verbosity   => -2,
-            exec        => ['../../parrot', '-G', 'perl6.pbc'],
+            exec        => [$parrot, '-G', 'perl6.pbc'],
             merge       => 1,
     });
 }