diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-07-28 19:11:46 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-29 04:55:48 +0000 |
| commit | 8d8eebbfbaf69416c8b03806075dd4952f30f6a8 (patch) | |
| tree | d7cacb997dc29bdc6baa8ed06496050d3f7e6128 | |
| parent | f66c782ad0fd9fec3429c552eef508d3f1fc124f (diff) | |
| download | perl-8d8eebbfbaf69416c8b03806075dd4952f30f6a8.tar.gz | |
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
| -rw-r--r-- | lib/File/Find.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 8136cf1b6e..242280b3a7 100644 --- 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"; } |