Fixed sub Cleanup() - s/'\n'/"\n"/

2003-02-06 19:37:18 +00:00
parent 8ee88feabb
commit 52fc660e03
1 changed files with 1 additions and 1 deletions
--- a/src/makeBaseApp/makeBaseApp.pl
+++ b/src/makeBaseApp/makeBaseApp.pl
@@ -353,7 +353,7 @@ sub Cleanup { # (return-code [ messsage-line1, line 2, ... ])
    my ($rtncode, @message) = @_;

    if (@message) {
-	print join('\n', @message), '\n';
+	print join("\n", @message), "\n";
    } else {
 	&Usage;
    }