From e1c108b14abe5991e3706ff4257e997f3a7b74e3 Mon Sep 17 00:00:00 2001
From: "Janet B. Anderson" <jba@aps.anl.gov>
Date: Mon, 1 Oct 2001 17:52:43 +0000
Subject: [PATCH] Added basename.

---
 src/tools/cp.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/tools/cp.pl b/src/tools/cp.pl
index da6812736..bc202c6ae 100644
--- 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