diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-10-03 16:31:46 -0400 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-10-03 16:31:46 -0400 |
| commit | 81ff29e3f2c8b2515c4356170a4e8ec2243abc34 (patch) | |
| tree | 3df6ded15f91521a3bc6cac56b1e7f60f9bdf387 /lib/Test | |
| parent | 4e8642014db0a02b994dbae414bd00551a634b6b (diff) | |
| download | perl-81ff29e3f2c8b2515c4356170a4e8ec2243abc34.tar.gz | |
perl 5.003_06: lib/ExtUtils/MM_VMS.pm lib/ExtUtils/Manifest.pm lib/Test/Harness.pm
Date: Fri, 20 Sep 1996 15:08:33 +0100 (BST)
From: "Joseph S. Myers" <jsm28@hermes.cam.ac.uk>
Subject: Pod typos, pod2man bugs, and miscellaneous installation comments
Here is a patch for various typos and other defects in the Perl
5.003_05 pods, including the pods embedded in library modules.
Date: Thu, 03 Oct 1996 16:31:46 -0400 (EDT)
From: Charles Bailey <bailey@HMIVAX.HUMGEN.UPENN.EDU>
Subject: VMS patches to 5.003_05
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 7a164243be..5d7d8bfef0 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -11,7 +11,7 @@ use vars qw($VERSION $verbose $switches $have_devel_corestack $curtest @ISA @EXPORT @EXPORT_OK); $have_devel_corestack = 0; -$VERSION = "1.12"; +$VERSION = "1.13"; @ISA=('Exporter'); @EXPORT= qw(&runtests); @@ -47,6 +47,7 @@ sub runtests { my $bad = 0; my $good = 0; my $total = @tests; + my $old5lib = $ENV{PERL5LIB}; local($ENV{'PERL5LIB'}) = join($Config{path_sep}, @INC); # pass -I flags to children my $t_start = new Benchmark; @@ -55,7 +56,8 @@ sub runtests { chop($te); print "$te" . '.' x (20 - length($te)); my $fh = new FileHandle; - $fh->open("$^X $switches $test|") || (print "can't run. $!\n"); + if ($^O eq 'VMS') { $fh->open("MCR $^X $switches $test|") || (print "can't run. $!\n"); } + else { $fh->open("$^X $switches $test|") || (print "can't run. $!\n"); } $ok = $next = $max = 0; @failed = (); while (<$fh>) { @@ -147,6 +149,7 @@ sub runtests { } my $t_total = timediff(new Benchmark, $t_start); + if ($^O eq 'VMS' and defined($old5lib)) { $ENV{PERL5LIB} = $old5lib; } if ($bad == 0 && $totmax) { print "All tests successful.\n"; } elsif ($total==0){ @@ -302,7 +305,7 @@ above are printed. =item C<Test returned status %d (wstat %d)> -Scripts that return a non-zero exit status, both $?>>8 and $? are +Scripts that return a non-zero exit status, both C<$? E<gt>E<gt> 8> and C<$?> are printed in a message similar to the above. =item C<Failed 1 test, %.2f%% okay. %s> |