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-08-21 15:01:28 +00:00
parent 2034323254
commit 05d89d878e
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
configure/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