Patrick, done:
----- Forwarded message from nicho...@hexten.net -----
Envelope-to: n...@ccl4.org
Delivery-date: Wed, 11 Feb 2009 20:45:22 +0000
Delivered-To: tapx-com...@hexten.net
From: nicho...@hexten.net
To: tapx-com...@hexten.net
Subject: [1255] Avoid using -l in the one liner that determines @INC,
for the benefit of Rakudo
X-Mailer: SVN::Notify 1.0: http://search.cpan.org/dist/SVN-Notify/
Date: Wed, 11 Feb 2009 20:45:13 +0000 (GMT)
Reply-To: tapx-...@hexten.net
Errors-To: tapx-commit-boun...@hexten.net
Revision: 1255
Author: nicholas
Date: 2009-02-11 20:45:13 +0000 (Wed, 11 Feb 2009)
Log Message:
-----------
Avoid using -l in the one liner that determines @INC, for the benefit of Rakudo
(The Perl 6 command line has removed -l, and when used to test Rakudo, T::H
ends up calling Rakudo as $perl at this point, to determine its @INC)
Modified Paths:
--------------
trunk/lib/Test/Harness.pm
Modified: trunk/lib/Test/Harness.pm
===================================================================
--- trunk/lib/Test/Harness.pm 2009-02-11 12:40:55 UTC (rev 1254)
+++ trunk/lib/Test/Harness.pm 2009-02-11 20:45:13 UTC (rev 1255)
@@ -305,7 +305,8 @@
local $ENV{PERLLIB};
my $perl = $ENV{HARNESS_PERL} || $^X;
- chomp( @inc = `$perl -le "print join qq[\\n], \...@inc"` );
+ # Avoid using -l for the benefit of Perl 6
+ chomp( @inc = `$perl -e "print join qq[\\n], \...@inc, q[]"` );
return @inc;
}
}
_______________________________________________
tapx-commit mailing list
tapx-com...@hexten.net
http://hexten.net/mailman/listinfo/tapx-commit
----- End forwarded message -----
