ext/List/Util/t/p_reduce.t

   1 #!./perl
   2
   3 # force perl-only version to be tested
   4 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
   5
   6 (my $f = __FILE__) =~ s/p_//;
   7 $::PERL_ONLY = $::PERL_ONLY = 1; # Mustn't use it only once!
   8 do $f; die $@ if $@;