From 314d8cefe06a592e854fa78605fcd20ad92726fa Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sun, 15 Feb 2009 13:00:56 +0100
Subject: [PATCH] handle different build layout in in
 update_passing_test_data.pl

---
 tools/update_passing_test_data.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tools/update_passing_test_data.pl b/tools/update_passing_test_data.pl
index 93344f5f719..bbec881a338 100644
--- 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,
     });
 }