From d3c72e392ab72d418ea5147857701a8730def3fd Mon Sep 17 00:00:00 2001 From: Richard Levitte Date: Wed, 12 Sep 2018 02:38:22 +0200 Subject: util/mkdef.pl, util/add-depends.pl: don't lowercase file names It turns out to be detrimental on some file systems that may or may not be case sensitive (such as NTFS, which has a case sensitive mode). Fixes #7172 Reviewed-by: Tim Hudson (Merged from https://github.com/openssl/openssl/pull/7172) --- util/add-depends.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'util/add-depends.pl') diff --git a/util/add-depends.pl b/util/add-depends.pl index 3ba266e353..deb0de238a 100644 --- a/util/add-depends.pl +++ b/util/add-depends.pl @@ -63,7 +63,7 @@ my $abs_blddir = rel2abs($blddir); # files we depend on in the same directory that only differ by character case, # we're fine. my %depconv_cache = - map { lc catfile($abs_blddir, $_) => $_ } + map { catfile($abs_blddir, $_) => $_ } keys %{$unified_info{generate}}; my %procedures = ( @@ -139,7 +139,7 @@ my %procedures = ( # VMS C gives us absolute paths, always. Let's see if we can # make them relative instead. - $line = lc canonpath($line); + $line = canonpath($line); unless (defined $depconv_cache{$line}) { my $dep = $line; @@ -184,7 +184,7 @@ my %procedures = ( # VC gives us absolute paths for all include files, so to # remove system header dependencies, we need to check that # they don't match $abs_srcdir or $abs_blddir. - $tail = lc canonpath($tail); + $tail = canonpath($tail); unless (defined $depconv_cache{$tail}) { my $dep = $tail; -- cgit v1.2.3