Change 24753 by [EMAIL PROTECTED] on 2005/06/08 09:12:17
Subject: Re: FindBin.pm: incomplete getcwd/cwd patch and SELinux
(Strict policy)
From: Jos� Pedro Oliveira <[EMAIL PROTECTED]>
Date: Tue, 07 Jun 2005 21:07:42 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/FindBin.pm#21 edit
Differences ...
==== //depot/perl/lib/FindBin.pm#21 (text) ====
Index: perl/lib/FindBin.pm
--- perl/lib/FindBin.pm#20~24704~ Sat Jun 4 09:06:38 2005
+++ perl/lib/FindBin.pm Wed Jun 8 02:12:17 2005
@@ -104,7 +104,7 @@
%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 @@
}
# 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);
}
}
End of Patch.
