my @argv = ();
foreach my $idx (0..$#ARGV) {
push( @argv, $ARGV[$idx] ), next unless $ARGV[$idx] =~ /^-(\S+)$/;
+ $::benchmark = 1 if $1 eq 'benchmark';
$::core = 1 if $1 eq 'core';
$::verbose = 1 if $1 eq 'v';
$::torture = 1 if $1 eq 'torture';
warn "$0: cannot open $mani: $!\n";
}
unless ($::core) {
- _find_tests('Module_Pluggable');
_find_tests('pod');
_find_tests('x2p');
_find_tests('japh') if $::torture;
+ _find_tests('t/benchmark') if $::benchmark or $ENV{PERL_BENCHMARK};
}
}
my %todo;
while (<RESULTS>) {
next if /^\s*$/; # skip blank lines
+ if (/^1..$/ && ($^O eq 'VMS')) {
+ # VMS pipe bug inserts blank lines.
+ my $l2 = <RESULTS>;
+ if ($l2 =~ /^\s*$/) {
+ $l2 = <RESULTS>;
+ }
+ $_ = '1..' . $l2;
+ }
if ($::verbose) {
print $_;
}