From d43f331cfb4bf1e5ee06584a10c2898819bb2b0c Mon Sep 17 00:00:00 2001
From: Ralph Lange <Ralph.Lange@bessy.de>
Date: Tue, 11 Jan 2000 13:41:49 +0000
Subject: [PATCH] Change suggested by R. Wright (makes it work with perl 5.003)

---
 src/makeBaseApp/makeBaseApp.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl
index 464811143..9c758e9fe 100755
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -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;