This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATCH] Harness.pm bug w/perl5.004 & VMS
authorTim Bunce <Tim.Bunce@ig.co.uk>
Wed, 11 Jun 1997 00:00:00 +0000 (12:00 +1200)
committerTim Bunce <Tim.Bunce@ig.co.uk>
Wed, 11 Jun 1997 00:00:00 +0000 (12:00 +1200)
(this is the same change as commit 2d8ca5da0888ace50c79900af6ef82761bea90b2, but as applied)

lib/Test/Harness.pm

index 6979a11..24e9148 100644 (file)
@@ -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) {