Skip to content
Browse files

Append executable extension to expected tainted path

  • Loading branch information...
1 parent 42c08b7 commit 60d9f824b9f6ff75da5d08f80fa1e77f878600d6 @Leont committed Nov 1, 2013
Showing with 2 additions and 1 deletion.
  1. +1 −0 Changes
  2. +1 −1 t/11-tainted.t
View
1 Changes
@@ -1,6 +1,7 @@
Revision history for Devel-FindPerl
{{$NEXT}}
+ Append executable extension to expected tainted path
0.007 2013-10-24 14:32:54 Europe/Amsterdam
Soften dependency on ExtUtils::Config
View
2 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 = $Config{perlpath};
+my $perlpath = join '', @Config{qw/perlpath exe_ext/};
plan(skip_all => "Perl not in perlpath '$perlpath'") unless -x $perlpath and perl_is_same($perlpath);
plan(skip_all => 'Taint test can\'t be run from uninstalled perl') if $ENV{PERL_CORE};
plan(skip_all => 'Testrun without taint mode') if not $^T;

0 comments on commit 60d9f82

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