patch@26180 - t/op/pat.t : Can't reset %ENV on VMS

[John E. Malmberg]

t/op/pat.t is failing on OpenVMS because it is calling "reset 'X'", and 
perl can not reset %ENV hash values on VMS.

That reset 'X' or other letters will generate a warning on OpenVMS would 
seem to make this routine not useful on it.

-John
[EMAIL PROTECTED]
Personal Opinion Only
--- /rsync_root/perl/t/op/pat.t Fri Nov  4 14:07:37 2005
+++ t/op/pat.t  Mon Nov 21 21:43:49 2005
@@ -79,12 +79,21 @@
 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";