diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-12-30 21:00:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-12-30 21:00:28 +0000 |
| commit | 25931d335858f0e7767af03260b9bb9ad7a959d5 (patch) | |
| tree | 1ea5382bdfda2cadc5c7fc34dac3611710ef4e15 /lib/FindBin.pm | |
| parent | aeb2b38d3110f132d105d762f8f59dd6e1564741 (diff) | |
| download | perl-25931d335858f0e7767af03260b9bb9ad7a959d5.tar.gz | |
[win32] Fix $ENV{Path} in FindBin.pm
p4raw-id: //depot/win32/perl@390
Diffstat (limited to 'lib/FindBin.pm')
| -rw-r--r-- | lib/FindBin.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/FindBin.pm b/lib/FindBin.pm index 881caa7559..d6bd7b777e 100644 --- a/lib/FindBin.pm +++ b/lib/FindBin.pm @@ -82,7 +82,7 @@ use File::Basename; %EXPORT_TAGS = (ALL => [qw($Bin $Script $RealBin $RealScript $Dir $RealDir)]); @ISA = qw(Exporter); -$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/); +$VERSION = $VERSION = sprintf("%d.%02d", q$Revision: 1.41 $ =~ /(\d+)\.(\d+)/); sub is_abs_path { @@ -131,7 +131,7 @@ BEGIN && -f $script) { my $dir; - my $pathvar = ($IsWin32) ? 'Path' : 'PATH'; + my $pathvar = 'PATH'; foreach $dir (split(/$Config{'path_sep'}/,$ENV{$pathvar})) { |