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

Change suggested by R. Wright (makes it work with perl 5.003)

Browse Source
This commit is contained in:
Ralph Lange
2000-01-11 13:41:49 +00:00
parent 306913b991
commit d43f331cfb
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/makeBaseApp/makeBaseApp.pl
View File

@@ -78,11 +78,15 @@ if (-r "$top/$apptypename/Replace.pl") {
}
#
# Copy files from <top> (non-App & non-Boot) if not present
# Copy files and trees from <top> (non-App & non-Boot) if not present
#
opendir TOPDIR, "$top" or die "Can't open $top: $!";
foreach $f ( grep !/^\.\.?$|^[^\/]*(App|Boot)/, readdir TOPDIR ) {
find(\&FCopyTree, "$top/$f") unless (-e "$f");
if (-f "$f") {
&CopyFile("$top/$f") unless (-e "$f");
} else {
find(\&FCopyTree, "$top/$f") unless (-e "$f");
}
}
closedir TOPDIR;