diff options
| author | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | 395b061e83a2cd1e977cf0ee574b2d0361cc1c0a (patch) | |
| tree | 7997d40beb97abaace41ac22b05c99ecfecefdfa /lib/Test | |
| parent | 25dc8abb365ced9012e8a069c3d136dc39512341 (diff) | |
| download | perl-395b061e83a2cd1e977cf0ee574b2d0361cc1c0a.tar.gz | |
[PATCH] Harness.pm bug w/perl5.004 & VMS
(this is the same change as commit 2d8ca5da0888ace50c79900af6ef82761bea90b2, but as applied)
Diffstat (limited to 'lib/Test')
| -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..24e9148ff2 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) { |