another File::Find tweak for VMS (improve on #20221)

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F260212.9000104@mac.com>

p4raw-id: //depot/perl@20281

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 8136cf1..242280b 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -769,7 +769,7 @@ sub _find_dir($$$) {
                }
            }
        }
-       unless (chdir ($Is_VMS && $udir !~ /\// ? "./$udir" : $udir)) {
+       unless (chdir ($Is_VMS && $udir !~ /[\/\[<]+/ ? "./$udir" : $udir)) {
            warnings::warnif "Can't cd to $udir: $!\n";
            return;
        }
@@ -811,7 +811,7 @@ sub _find_dir($$$) {
                    }
                }
            }
-           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";
                }