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

[Craig A. Berry]

This does a bit better job of "add directory syntax if we don't already
have some." Specifically, it checks for VMS as well as Unix directory 
syntax.

--- lib/File/Find.pm;-0 Sun Jul 27 16:11:58 2003
+++ lib/File/Find.pm    Mon Jul 28 23:52:14 2003
@@ -769,7 +769,7 @@
                }
            }
        }
-       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 @@
                    }
                }
            }
-           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";
                }