diff options
| author | José Pedro Oliveira <jpo@di.uminho.pt> | 2005-06-07 22:07:42 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-08 09:12:17 +0000 |
| commit | 942068f5eb2e4323f0443fdb27a222fde20b6e6d (patch) | |
| tree | 658a99dbc0844db4a64c4bd8efa4334125cdfee3 /lib/FindBin.pm | |
| parent | 6f46942a96d669ad911580516a4c630bf04865ca (diff) | |
| download | perl-942068f5eb2e4323f0443fdb27a222fde20b6e6d.tar.gz | |
Re: FindBin.pm: incomplete getcwd/cwd patch and SELinux (Strict policy)
Message-ID: <42A5FE8E.3020608@di.uminho.pt>
p4raw-id: //depot/perl@24753
Diffstat (limited to 'lib/FindBin.pm')
| -rw-r--r-- | lib/FindBin.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/FindBin.pm b/lib/FindBin.pm index 353a904647..0dbe550620 100644 --- a/lib/FindBin.pm +++ b/lib/FindBin.pm @@ -104,7 +104,7 @@ use File::Spec; %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]); @ISA = qw(Exporter); -$VERSION = "1.46"; +$VERSION = "1.47"; sub cwd2 { my $cwd = getcwd(); @@ -188,7 +188,11 @@ sub init } # Get absolute paths to directories - $Bin = abs_path($Bin) if($Bin); + if ($Bin) { + my $BinOld = $Bin; + $Bin = abs_path($Bin); + defined $Bin or $Bin = File::Spec->canonpath($BinOld); + } $RealBin = abs_path($RealBin) if($RealBin); } } |