Browse files

Skip relocatable perls

  • Loading branch information...
1 parent cb8b95a commit edbca7bbc6e098bc60ec7286b61805cbc3afe55f @Leont committed Nov 7, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 t/11-tainted.t
View
3 t/11-tainted.t
@@ -9,8 +9,9 @@ use Config;
use Devel::FindPerl qw/find_perl_interpreter perl_is_same/;
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 => '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);
plan(skip_all => 'Testrun without taint mode') if not $^T;
my $interpreter = do {

0 comments on commit edbca7b

Please sign in to comment.