From 0080b2d007d9255b7d0be364e460b43cdfcc708b Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@aps.anl.gov>
Date: Mon, 1 Oct 2001 21:55:50 +0000
Subject: [PATCH] Fixed operation in new app directory.

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

diff --git a/src/makeBaseApp/makeBaseApp.pl b/src/makeBaseApp/makeBaseApp.pl
index a1bb60736..227df63d0 100755
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -15,7 +15,7 @@ $app_top  = cwd();
 @apps   = (TOP);
 
 &GetUser;		# Ensure we know who's in charge
-&readRelease("configure/RELEASE", \%release, \@apps);
+&readRelease("configure/RELEASE", \%release, \@apps) if (-r "configure/RELEASE");
 &get_commandline_opts;	# Check command-line options
 
 #
@@ -344,9 +344,7 @@ sub Cleanup { # (return-code [ messsage-line1, line 2, ... ])
     my ($rtncode, @message) = @_;
 
     if (@message) {
-	foreach $line ( @message ) {
-	    print "$line\n";
-	}
+	print join('\n', @message), '\n';
     } else {
 	&Usage;
     }
@@ -414,7 +412,7 @@ sub GetUser {
 
 # replace "\" by "/"  (for WINxx)
 sub UnixPath { # path
-    my($newpath) = $_[0];
+    my($newpath) = @_;
     $newpath =~ s|\\|/|go;
     return $newpath;
 }