This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix for [perl #34252] Access rights in FindBin::Bin
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 May 2005 08:53:25 +0000 (08:53 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 3 May 2005 08:53:25 +0000 (08:53 +0000)
commit7d161605f8e10199e4c300f0a0e3d3c71656ee35
tree71016c62b77cc639158c7a3e3afe03ba753eef08
parent62e1ddac2ea58cd2a35011515be4801254772ba8
Fix for [perl #34252] Access rights in FindBin::Bin
At least on my platform, Cwd::getcwd doesn't find the current
directory if it has no access to it. Try harder with Cwd::cwd.

p4raw-id: //depot/perl@24375
lib/FindBin.pm