$catdst always needs a value

briandfoy · Jul 5, 2023 · f7f4542 · f7f4542
1 parent 7803a4c
commit f7f4542
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/bin/cp b/bin/cp
@@ -66,7 +66,11 @@ sub run {
 		require File::Copy;
 		my $err = 0;
 		foreach my $source (@files) {
-			my $catdst = catfile( $destination, basename($source) ) if -d $destination;
+			my $catdst = $destination;
+			if( -d $destination ) {
+				$catdst = catfile( $destination, basename($source) )
+				}
+
 			print { output_fh() } "$source -> $catdst\n" if $opts->{v};
 			if( -e $catdst and $opts->{i} and ! $opts->{f} ) {
 				my $answer = prompt( "overwrite $catdst? (y/n [n])", 'n' );