From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 30 Dec 1997 21:00:28 +0000 (+0000)
Subject: [win32] Fix $ENV{Path} in FindBin.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25931d335858f0e7767af03260b9bb9ad7a959d5;p=p5sagit%2Fp5-mst-13.2.git

[win32] Fix $ENV{Path} in FindBin.pm

p4raw-id: //depot/win32/perl@390
---

diff --git a/lib/FindBin.pm b/lib/FindBin.pm
index 881caa7..d6bd7b7 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}))
 	{