Re: possible fix to File::Find problems

[Michael G Schwern]

On Sat, Jul 19, 2003 at 08:28:07AM -0500, Craig A. Berry wrote:
> -     unless (chdir $udir) {
> +     unless (chdir ($^O eq 'VMS' && $udir !~ /\// ? "./$udir" : $udir)) {
>           warnings::warnif "Can't cd to $udir: $!\n";
>           return;
>       }
> @@ -811,7 +811,7 @@
>                   }
>               }
>           }
> -         unless (chdir $udir) {
> +         unless (chdir ($^O eq 'VMS' && $udir !~ /\// ? "./$udir" : $udir)) {

s/$^O eq 'VMS'/$Is_VMS/g ?


-- 
grep { ref and ref !~ /^[A-Z]+$/ } kill 9, @ARGV;