Turn off case sensitive tracking in bin/cp (#115)

briandfoy · Jun 21, 2023 · b3a0f1e · b3a0f1e
1 parent e937650
commit b3a0f1e
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 11 deletions.
diff --git a/bin/cp b/bin/cp
@@ -64,16 +64,7 @@ if ($^O =~ /Win32/i)
 #    $cp::BINMODE = 0;
 #}
 
-## default is that OS is case sensitive (file a.txt ne A.txt)
-if ($^O =~ /(Win32|VMS|OS2)/i) ## OS is not case sensitive.. normalize path
-{
-    $cp::CASE_SENSITIVE = 0;
-    $cp::CWD = uc $cp::CWD;
-}
-else
-{
     $cp::CASE_SENSITIVE = 1;
-}
 $cp::CWD =~ s|\\|/|g; ## normalize for compares
 
 #######   C H E C K   P A T H S   &    C L E A N   U P  I F  N E E D E D  ######

diff --git a/t/cp/gh-115-copy-into-dir.t b/t/cp/gh-115-copy-into-dir.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Cmd;
 use Cwd;
 use File::Spec::Functions qw(catfile);
 use File::Temp qw(tempdir);
@@ -37,7 +36,7 @@ my $second_filename = 'b.txt';
 
 subtest 'starting files' => sub {
 	ok -e $filename, "$filename exists";
-	ok ! -e $second_filename, "$second_filename exists";
+	ok ! -e $second_filename, "$second_filename does not exist";
 	};
 
 =pod