#100000# more ealborate check for logging

1 files changed, 6 insertions, 6 deletions

diff --git a/solenv/bin/build.pl b/solenv/bin/build.pl
index 025e2185fda6..633110358895 100644
--- a/solenv/bin/build.pl
+++ b/solenv/bin/build.pl
@@ -5,9 +5,9 @@
 #
 #   $RCSfile: build.pl,v $
 #
-#   $Revision: 1.110 $
+#   $Revision: 1.111 $
 #
-#   last change: $Author: vg $ $Date: 2004-04-22 16:56:16 $
+#   last change: $Author: vg $ $Date: 2004-05-07 09:05:25 $
 #
 #   The Contents of this file are made available subject to the terms of
 #   either of the following licenses
@@ -85,7 +85,7 @@
 
     ( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
 
-    $id_str = ' $Revision: 1.110 $ ';
+    $id_str = ' $Revision: 1.111 $ ';
     $id_str =~ /Revision:\s+(\S+)\s+\$/
       ? ($script_rev = $1) : ($script_rev = "-");
 
@@ -103,7 +103,7 @@
         } else {
             print_error("Can't determine VCSID. Please use setsolar.", 5);
         };
-        $log = Logging->new();
+        $log = Logging->new() if (defined $ENV{CWS_WORK_STAMP});
     };
     $modules_number++;
     $perl = "";
@@ -797,7 +797,7 @@ sub GetDirectoryList {
 };
 
 sub finish_logging {
-    return if (!defined $ENV{CWS_WORK_STAMP} || $show);
+    return if ($show || (!defined $log));
     my $message = shift;
     $message = 'SUCCESS.'  if (!$message);
     $message .= " Built $modules_number modules.";
@@ -841,7 +841,7 @@ sub usage {
 };
 
 sub init_logging {
-    return if (!defined $ENV{CWS_WORK_STAMP} || $show);
+    return if ($show || (!defined $log));
     my $parameter_list = '';
     foreach (@ARGV) {$parameter_list .= "$_\;"};
     $parameter_list = $` if ($parameter_list =~ /;$/o);