[Libreoffice-commits] .: solenv/bin

[Norbert Thiebaud]

 solenv/bin/build.pl |   19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

New commits:
commit 96df0ac83bc5ab27c25c472c37c40d01c7a1e82a
Author: Norbert Thiebaud <nthiebaud at gmail.com>
Date:   Tue May 24 11:39:36 2011 -0500

    build.pl restore the output 'interactivity'

diff --git a/solenv/bin/build.pl b/solenv/bin/build.pl
index ffad05e..2b34313 100755
--- a/solenv/bin/build.pl
+++ b/solenv/bin/build.pl
@@ -2021,15 +2021,16 @@ sub run_job {
     if (!-d $log_dir) {
         system("$perl $mkout");
     };
-    $error_code = system ("$job_to_do > $log_file 2>&1");
-    if ( -f $log_file) {
-        open(LOGFILE, "< $log_file");
-        print while(<LOGFILE>);
-        close(LOGFILE);
-        if ( $error_code != 0)
-        {
-            system("cat $log_file >> $build_error_log");
-        }
+    open (MAKE, "$job_to_do 2>&1 |") or return 8;
+    open (LOGFILE, "> $log_file") or return 8;
+    while (<MAKE>) { print LOGFILE $_; print $_ }
+    close MAKE;
+    $error_code = $?;
+    close LOGFILE;
+    if ( $error_code != 0)
+    {
+        system("echo \"log for $path\" >> $build_error_log");
+        system("cat $log_file >> $build_error_log");
     }
 
     return $error_code;