5 # force perl-only version to be tested
6 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
8 (my $f = __FILE__) =~ s/p_//;
9 my $filename = $^O eq 'MSWin32'
10 ? File::Spec->rel2abs(File::Spec->catfile(".", $f))
11 : File::Spec->catfile(".", $f);
12 do $filename; die $@ if $@;