From b3a0f1e4b2f9b79f4d0059421e32c52530a4dc18 Mon Sep 17 00:00:00 2001
From: brian d foy <brian.d.foy@gmail.com>
Date: Wed, 21 Jun 2023 09:49:15 -0400
Subject: [PATCH] Turn off case sensitive tracking in bin/cp (#115)

---
 bin/cp                      | 9 ---------
 t/cp/gh-115-copy-into-dir.t | 3 +--
 2 files changed, 1 insertion(+), 11 deletions(-)

diff --git a/bin/cp b/bin/cp
index c59a6890..1fdd7901 100755
--- 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
index bf150ac4..bff64d8d 100644
--- 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