From 105cc7c19b02d761dbd9c4cfa1f0ea3aeaa7279f Mon Sep 17 00:00:00 2001 From: brian d foy Date: Thu, 22 Jun 2023 00:00:07 -0400 Subject: [PATCH] Don't try to treat Windows specially. It's a bit hopeless. --- bin/cp | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/bin/cp b/bin/cp index 5e27214c..e7673f85 100755 --- a/bin/cp +++ b/bin/cp @@ -50,16 +50,7 @@ sub run { my( $source, $destination ) = @args; my @unix_like = qw(darwin freebsd linux); - if( $^O eq 'MSWin32' ) { - # https://home.csulb.edu/~murdock/copy.html - my @command = 'copy'; - push @command, '/-Y' if $opts{i}; - push @command, $source, $destination; - - print "cp $source $destination\n" if $opts{v}; - my $rc = system { $command[0] } @command - } - elsif( grep { $^O eq $_ } @unix_like and in_path('cp') ) { + if( grep { $^O eq $_ } @unix_like and in_path('cp') ) { # Although File::Copy seems like it should do the right thing, # it doesn't. my @command = 'cp';