Author: dagolden
Date: Mon Oct 26 20:17:37 2009
New Revision: 13431
Modified:
Module-Build/trunk/t/actions/installdeps.t
Log:
use $^X instead of perl in installdeps.t
Modified: Module-Build/trunk/t/actions/installdeps.t
==============================================================================
--- Module-Build/trunk/t/actions/installdeps.t (original)
+++ Module-Build/trunk/t/actions/installdeps.t Mon Oct 26 20:17:37 2009
@@ -20,14 +20,14 @@
build_requires => {
'Getopt::Long' => 9998,
},
- cpan_client => 'perl -le print($_)for($^X,@ARGV)',
+ cpan_client => $^X . ' -le print($_)for($^X,@ARGV)',
)->regen;
# get a Module::Build object and test with it
my $mb;
stdout_stderr_of( sub { $mb = $dist->new_from_context('verbose' => 1) } );
isa_ok( $mb, "Module::Build" );
-like( $mb->cpan_client, qr/^perl/, "cpan_client is mocked with perl" );
+like( $mb->cpan_client, qr/^\Q$^X\E/, "cpan_client is mocked with perl" );
my $out = stdout_of( sub {
$dist->run_build('installdeps')
