From: Jan Dubois <jand@activestate.com>
Date: Sun, 16 Oct 2005 20:24:00 +0000 (+0000)
Subject: Keys of %INC always use forward slashes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7e8780d0ba18db8e295db218f45a54490a467795;p=p5sagit%2Fp5-mst-13.2.git

Keys of %INC always use forward slashes
Message-ID: <006e01c5d27e$d722c6e0$2217a8c0@candy>

p4raw-id: //depot/perl@25774
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index fa83398..73389a9 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -1,6 +1,6 @@
 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
 package CPAN;
-$VERSION = '1.76_02';
+$VERSION = '1.76_03';
 $VERSION = eval $VERSION;
 # $Id: CPAN.pm,v 1.412 2003/07/31 14:53:04 k Exp $
 
@@ -768,7 +768,6 @@ sub has_inst {
     my $file = $mod;
     my $obj;
     $file =~ s|::|/|g;
-    $file =~ s|/|\\|g if $^O eq 'MSWin32';
     $file .= ".pm";
     if ($INC{$file}) {
 	# checking %INC is wrong, because $INC{LWP} may be true