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 (executable)
--- 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";