}
}
}
- unless (chdir ($Is_VMS && $udir !~ /\// ? "./$udir" : $udir)) {
+ unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) {
warnings::warnif "Can't cd to $udir: $!\n";
return;
}
}
}
}
- unless (chdir ($Is_VMS && $udir !~ /\// ? "./$udir" : $udir)) {
+ unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) {
if ($Is_MacOS) {
warnings::warnif "Can't cd to ($p_dir) $udir: $!\n";
}