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