Skip to content
Browse files

Allow for executable extension in tainted test

  • Loading branch information...
1 parent 34cf656 commit 4fd0db4e99ee66107a9edeba4b46369ac00479f5 @Leont committed Nov 13, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/11-tainted.t
View
4 t/11-tainted.t
@@ -8,7 +8,7 @@ use Test::More;
use Config;
use Devel::FindPerl qw/find_perl_interpreter perl_is_same/;
-my $perlpath = join '', @Config{qw/perlpath exe_ext/};
+my $perlpath = $Config{perlpath};
plan(skip_all => 'Taint test can\'t be run from uninstalled perl') if $ENV{PERL_CORE};
plan(skip_all => 'Taint test can\'t be run for relocatable perl') if $Config{userelocatableinc};
plan(skip_all => "Perl not in perlpath '$perlpath'") unless -x $perlpath and perl_is_same($perlpath);
@@ -18,6 +18,6 @@ my $interpreter = do {
local $SIG{__WARN__} = sub { fail("Got a warning during find_perl_interpreter") };
find_perl_interpreter();
};
-is($interpreter, $perlpath, 'Always find $Config{perlpath} under tainting');
+like($interpreter, qr/\Q$perlpath/, 'Always find $Config{perlpath} under tainting');
done_testing;

0 comments on commit 4fd0db4

Please sign in to comment.
Something went wrong with that request. Please try again.