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

#!./perl

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

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