On Thu, Dec 29, 2005 at 12:40:25PM +0100, demerphq ([EMAIL PROTECTED]) wrote:
> Since you are working on Test::Harness and prove i wonder what the status is
> of
>
> https://rt.cpan.org/Ticket/Display.html?id=8767
Will you settle for this instead? It's more DRY.
xoa
Index: t/prove-switches.t
===================================================================
--- t/prove-switches.t (revision 2237)
+++ t/prove-switches.t (working copy)
@@ -24,6 +24,7 @@
my $blib_lib = File::Spec->catfile( $blib, "lib" );
my $blib_arch = File::Spec->catfile( $blib, "arch" );
my $prove = File::Spec->catfile( $blib, "script", "prove" );
+$prove = "$^X $prove";
CAPITAL_TAINT: {
local $ENV{PROVE_SWITCHES};
Index: t/prove-globbing.t
===================================================================
--- t/prove-globbing.t (revision 2237)
+++ t/prove-globbing.t (working copy)
@@ -16,8 +16,9 @@
plan tests => 1;
+my $tests = File::Spec->catfile( 't', 'prove*.t' );
my $prove = File::Spec->catfile( File::Spec->curdir, "blib", "script", "prove"
);
-my $tests = File::Spec->catfile( 't', 'prove*.t' );
+$prove = "$^X $prove";
GLOBBAGE: {
my @actual = sort qx/$prove --dry $tests/;
--
Andy Lester => [EMAIL PROTECTED] => www.petdance.com => AIM:petdance
