[p5sagit/p5-mst-13.2.git] / ext / List-Util / t / p_tainted.t

#!./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 = $^O eq 'MSWin32'
             ? File::Spec->rel2abs(File::Spec->catfile(".", $f))
             : File::Spec->catfile(".", $f);
do $filename; die $@ if $@;
Commit	Line	Data
cf083cf9	1	#!./perl -T
cf083cf9	2
455baebd	3	use File::Spec;
455baebd	4
cf083cf9	5	# force perl-only version to be tested
4984adac	6	$List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
cf083cf9	7
9850bf21	8	(my $f = __FILE__) =~ s/p_//;
2ff28616	9	my $filename = $^O eq 'MSWin32'
	10	? File::Spec->rel2abs(File::Spec->catfile(".", $f))
	11	: File::Spec->catfile(".", $f);
7c09933c	12	do $filename; die $@ if $@;