From 25931d335858f0e7767af03260b9bb9ad7a959d5 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 30 Dec 1997 21:00:28 +0000
Subject: [PATCH] [win32] Fix $ENV{Path} in FindBin.pm

p4raw-id: //depot/win32/perl@390
---
 lib/FindBin.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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}))
 	{
-- 
2.7.4