p_tainted.t

来自「source of perl for linux application,」· T 代码 · 共 11 行

#!./perl -T

use File::Spec;

# force perl-only version to be tested
$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;

(my $f = __FILE__) =~ s/p_//;
my $filename = File::Spec->catfile(".", $f);
do $filename; die $@ if $@;