diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-02-13 09:30:42 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-02-13 09:30:42 +0000 |
| commit | 62bfa7e029213f726486db8d517340b008e273d7 (patch) | |
| tree | 3dc2b25880de17048672ed464879e8692900a77a | |
| parent | 03c7648e71f62477c01f905ab79d6d0d219912d5 (diff) | |
| download | perl-62bfa7e029213f726486db8d517340b008e273d7.tar.gz | |
Do not lc() the file names before doing dirname() or they don't match.
p4raw-id: //depot/perlio@14677
| -rw-r--r-- | lib/ExtUtils/t/Installed.t | 2 |
1 files changed, 1 insertions, 1 deletions
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'); |