ext/List/Util/t/p_tainted.t

   1 #!./perl -T
   2
   3 use File::Spec;
   4
   5 # force perl-only version to be tested
   6 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
   7
   8 (my $f = __FILE__) =~ s/p_//;
   9 my $filename = File::Spec->catfile(".", $f);
  10 do $filename; die $@ if $@;