From e7c3cf1ca88485d05178f319a55409c16307be40 Mon Sep 17 00:00:00 2001
From: Ralph Lange <Ralph.Lange@bessy.de>
Date: Wed, 21 Sep 2005 15:02:53 +0000
Subject: [PATCH] Make find() follow soft links.

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

diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl
index cce7e2c50..4af296dca 100755
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -113,7 +113,7 @@ if (-r "$top/$apptypename/Replace.pl") {
 #
 opendir TOPDIR, "$top" or die "Can't open $top: $!";
 foreach $f ( grep !/^\.\.?$|^[^\/]*(App|Boot)/, readdir TOPDIR ) {
-    find(\&FCopyTree, "$top/$f") unless (-e "$f");
+    find({wanted => \&FCopyTree, follow => 1}, "$top/$f") unless (-e "$f");
 }
 closedir TOPDIR;
 
@@ -121,7 +121,7 @@ closedir TOPDIR;
 # Create ioc directories
 #
 if ($opt_i) {
-    find(\&FCopyTree, "$top/$apptypename");
+    find({wanted => \&FCopyTree, follow => 1}, "$top/$apptypename");
 
     foreach $ioc ( @ARGV ) {
 	($appname = $ioc) =~ s/App$//;
@@ -130,7 +130,7 @@ if ($opt_i) {
 	    print "iocBoot/$ioc exists, not modified.\n";
 	    next;
         }
-	find(\&FCopyTree, "$top/$apptypename/ioc");
+	find({wanted => \&FCopyTree, follow => 1}, "$top/$apptypename/ioc");
     }
     exit 0;			# finished here for -i (no xxxApps)
 }
@@ -146,7 +146,7 @@ foreach $app ( @ARGV ) {
 	next;
     }
     print "Creating $appname from template type $apptypename\n" if $opt_d; 
-    find(\&FCopyTree, "$top/$apptypename/");
+    find({wanted => \&FCopyTree, follow => 1}, "$top/$apptypename/");
 }
 
 exit 0;				# END OF SCRIPT