diff options
| author | Jan Dubois <jand@activestate.com> | 2005-10-16 20:24:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-16 21:47:57 +0000 |
| commit | 7e8780d0ba18db8e295db218f45a54490a467795 (patch) | |
| tree | d89778c7e0acf4f8edf0a263063976ba544e76b1 /lib/CPAN.pm | |
| parent | 7a7fd8e0ed51785cbfb9fc040ff670a40911ca48 (diff) | |
| download | perl-7e8780d0ba18db8e295db218f45a54490a467795.tar.gz | |
Keys of %INC always use forward slashes
Message-ID: <006e01c5d27e$d722c6e0$2217a8c0@candy>
p4raw-id: //depot/perl@25774
Diffstat (limited to 'lib/CPAN.pm')
| -rw-r--r-- | lib/CPAN.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index fa8339822c..73389a97e1 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 |