epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Added basename function.

Browse Source
This commit is contained in:
Janet B. Anderson
2001-10-01 17:48:05 +00:00
parent ec8a33ea5b
commit 0d9b5ce097
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
config/tools/cp.pl
View File

@@ -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