diff --git a/bin/cp b/bin/cp
index 0ea02f49..7da3bfe6 100755
--- a/bin/cp
+++ b/bin/cp
@@ -67,6 +67,11 @@ sub run {
 		require File::Copy;
 		my $err = 0;
 		foreach my $source (@files) {
+			if (-d $source) {
+				print { error_fh() } "$0: '$source' is a directory (not copied)\n";
+				$err = 1;
+				next;
+			}
 			my $catdst = $destination;
 			if( -d $destination ) {
 				$catdst = catfile( $destination, basename($source) )