From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 13 Feb 2002 09:30:42 +0000 (+0000)
Subject: Do not lc() the file names before doing dirname() or they don't match.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=62bfa7e029213f726486db8d517340b008e273d7;p=p5sagit%2Fp5-mst-13.2.git

Do not lc() the file names before doing dirname() or they don't match.

p4raw-id: //depot/perlio@14677
---

diff --git a/lib/ExtUtils/t/Installed.t b/lib/ExtUtils/t/Installed.t
index a974e04..8bd7fe6 100644
--- a/lib/ExtUtils/t/Installed.t
+++ b/lib/ExtUtils/t/Installed.t
@@ -162,7 +162,7 @@ is( scalar @files, 1, '... should find doc file in correct dir' );
 like( $files[0], qr/foobar$/, '... checking file name' );
 @files = $ei->files('goodmod');
 is( scalar @files, 4, '... should find all files with no type specified' );
-my %dirnames = map { lc($_) => dirname(lc($_)) } @files;
+my %dirnames = map { lc($_) => dirname($_) } @files;
 
 # directories
 my @dirs = $ei->directories('goodmod', 'prog', 'fake');