Change 20281: VMS: add directory syntax if we don't already have some

[Jarkko Hietaniemi]

Change 20281 by [EMAIL PROTECTED] on 2003/07/29 04:55:48

        VMS: add directory syntax if we don't already have some
        (Craig Berry)

Affected files ...

... //depot/perl/lib/File/Find.pm#69 edit

Differences ...

==== //depot/perl/lib/File/Find.pm#69 (text) ====
Index: perl/lib/File/Find.pm
--- perl/lib/File/Find.pm#68~20221~     Sun Jul 27 08:19:57 2003
+++ perl/lib/File/Find.pm       Mon Jul 28 21:55:48 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";
                }
End of Patch.