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 (file)
--- 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