Re: [perl #34252] Access rights in FindBin::Bin

[Nicholas Clark]

On Tue, May 03, 2005 at 11:21:59AM +0200, Rafael Garcia-Suarez wrote:

> The problem actually comes from Cwd, because getcwd() doesn't find the
> current directory if it has no access to it. cwd() does.
> 
> The patch below might fix this, modulo portability problems :

> +     my $cwd = getcwd();
> +     defined $cwd or $cwd = cwd(); # try harder
>       $script = File::Spec->catfile(getcwd(), $script)

should that last line be

    $script = File::Spec->catfile($cwd, $script)

?

Nicholas Clark