From: Tim Bunce <Tim.Bunce@ig.co.uk>
Date: Wed, 11 Jun 1997 00:00:00 +0000 (+1200)
Subject: [PATCH] Harness.pm bug w/perl5.004 & VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=395b061e83a2cd1e977cf0ee574b2d0361cc1c0a;p=p5sagit%2Fp5-mst-13.2.git

[PATCH] Harness.pm bug w/perl5.004 & VMS

(this is the same change as commit 2d8ca5da0888ace50c79900af6ef82761bea90b2, but as applied)
---

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 6979a11..24e9148 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) {