From 62bfa7e029213f726486db8d517340b008e273d7 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Wed, 13 Feb 2002 09:30:42 +0000
Subject: Do not lc() the file names before doing dirname() or they don't
 match.

p4raw-id: //depot/perlio@14677
---
 lib/ExtUtils/t/Installed.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/ExtUtils/t/Installed.t b/lib/ExtUtils/t/Installed.t
index a974e041e3..8bd7fe68af 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');
-- 
cgit v1.2.1