Commit | Line | Data |
---|---|---|
cf083cf9 GB |
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 GB |
5 | |
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 $@; |