Modified to handle dir/filename sources.

1999-07-26 21:49:51 +00:00
parent 512de97665
commit 195281ebee
1 changed files with 3 additions and 1 deletions
--- a/src/tools/cp.pl
+++ b/src/tools/cp.pl
@@ -3,6 +3,7 @@
 #	UNIX-cp in Perl

 use File::Copy;
+use File::Basename;

 sub Usage
 {
@@ -26,7 +27,8 @@ if (-d $target)
 {
 	foreach $file ( @sources )
 	{
-		copy ($file, "$target/$file");
+		$base=basename($file);
+		copy ($file, "$target/$base");
 	}
 }
 else