diff options
| author | Andreas Koenig <a.koenig@mind.de> | 1997-02-17 17:59:16 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-18 13:22:00 +1200 |
| commit | b876d4a69b7e436aa820861d94d188e771f95f14 (patch) | |
| tree | 952c42e5c10c7d42244fd1244dccdfea8e593f98 /lib | |
| parent | d4fd5c69aa67ee57d4d0286857bcd78a0847cbe3 (diff) | |
| download | perl-b876d4a69b7e436aa820861d94d188e771f95f14.tar.gz | |
Refresh Test::Harness to 1.15
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness.pm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index ec2c49e559..ba0683a02e 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -1,7 +1,6 @@ package Test::Harness; -require 5.002; - +BEGIN {require 5.002;} use Exporter; use Benchmark; use Config; @@ -12,7 +11,7 @@ use vars qw($VERSION $verbose $switches $have_devel_corestack $curtest @ISA @EXPORT @EXPORT_OK); $have_devel_corestack = 0; -$VERSION = "1.13"; +$VERSION = "1.15"; @ISA=('Exporter'); @EXPORT= qw(&runtests); @@ -158,8 +157,7 @@ sub runtests { if ($^O eq 'VMS') { if (defined $old5lib) { $ENV{PERL5LIB} = $old5lib; - } - else { + } else { delete $ENV{PERL5LIB}; } } @@ -179,7 +177,7 @@ sub runtests { $curtest = $failedtests{$script}; write; } - if ($bad > 1) { + if ($bad) { die "Failed $bad/$total test scripts, $pct% okay.$subpct\n"; } } @@ -338,8 +336,8 @@ See L<Benchmark> for the underlying timing routines. Either Tim Bunce or Andreas Koenig, we don't know. What we know for sure is, that it was inspired by Larry Wall's TEST script that came -with perl distributions for ages. Current maintainer is Andreas -Koenig. +with perl distributions for ages. Numerous anonymous contributors +exist. Current maintainer is Andreas Koenig. =head1 BUGS |