This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
patch@26180 - t/op/pat.t : Can't reset %ENV on VMS
authorJohn E. Malmberg <wb8tyw@qsl.net>
Mon, 21 Nov 2005 22:09:17 +0000 (17:09 -0500)
committerSteve Peters <steve@fisharerojo.org>
Tue, 22 Nov 2005 03:37:30 +0000 (03:37 +0000)
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-ID: <43828BDD.7080302@qsl.net>

p4raw-id: //depot/perl@26187

t/op/pat.t

index 10ecaf8..69d7305 100755 (executable)
@@ -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";