diff options
author | Dan Sugalski <sugalsd@lbcc.cc.or.us> | 1997-06-11 12:00:00 +1200 |
---|---|---|
committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
commit | 2d8ca5da0888ace50c79900af6ef82761bea90b2 (patch) | |
tree | a941a0909a4b354d8cb4e4bb2c11f32bea99c737 | |
parent | 25dc8abb365ced9012e8a069c3d136dc39512341 (diff) | |
download | perl-2d8ca5da0888ace50c79900af6ef82761bea90b2.tar.gz |
[PATCH] Harness.pm bug w/perl5.004 & VMS
Harness.pm's got a bug under VMS. $estatus is my'd and assigned to at the
same time--unfortunately the assignment's a trinary conditional that uses
$estatus, presumably before the my context is fully established. It
generates an estatus doesn't exist error message for the first test only,
and, after all the t/*.t tests are through, kills perl with an ACCVIO.
The following patch just splits the my and assignment into two separate
statements, which makes perl much happier.
p5p-msgid: 3.0.1.32.19970530102300.008a2730@stargate.lbcc.cc.or.us
-rw-r--r-- | lib/Test/Harness.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 6979a11549..f863717a06 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -104,7 +104,8 @@ sub runtests { } $fh->close; # must close to reap child resource values my $wstatus = $?; - my $estatus = ($^O eq 'VMS' + my $estatus; + $estatus = ($^O eq 'VMS' ? eval 'use vmsish "status"; $estatus = $?' : $wstatus >> 8); if ($wstatus) { |