From: Dan Sugalski <sugalsd@lbcc.cc.or.us>
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=2d8ca5da0888ace50c79900af6ef82761bea90b2;p=p5sagit%2Fp5-mst-13.2.git

[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
---

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