From: John E. Malmberg <wb8tyw@qsl.net>
Date: Mon, 21 Nov 2005 22:09:17 +0000 (-0500)
Subject: patch@26180 - t/op/pat.t : Can't reset %ENV on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1606b0c75b28d460075c09d3a6b2203fda3d6db3;p=p5sagit%2Fp5-mst-13.2.git

patch@26180 - t/op/pat.t : Can't reset %ENV on VMS
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <43828BDD.7080302@qsl.net>

p4raw-id: //depot/perl@26187
---

diff --git a/t/op/pat.t b/t/op/pat.t
index 10ecaf8..69d7305 100755
--- a/t/op/pat.t
+++ b/t/op/pat.t
@@ -79,12 +79,21 @@ $XXX{345} = 345;
 while ($_ = shift(@XXX)) {
     ?(.*)? && (print $1,"\n");
     /not/ && reset;
-    /not ok 26/ && reset 'X';
+    if (/not ok 26/) {
+      if ($^O eq 'VMS') {
+	$_ = shift(@XXX);
+      }
+      else {
+	reset 'X';
+      }
+   }
 }
 
-while (($key,$val) = each(%XXX)) {
+if ($^O ne 'VMS') {
+  while (($key,$val) = each(%XXX)) {
     print "not ok 27\n";
     exit;
+  }
 }
 
 print "ok 27\n";