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";