Changeset 471 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm

Timestamp:

Jun 3, 2008, 2:49:42 AM (16 years ago)

Author:

Bruno Cornec

Message:

announce function - begining of coding

File:

• devel/pb-modules/lib/ProjectBuilder/Base.pm (modified) (2 diffs)

devel/pb-modules/lib/ProjectBuilder/Base.pm

@@ -136 +136 @@
 my $cmd=shift;
 my $cmt=shift || $cmd;
+my $verbose=shift || undef;
 
 pb_log(0,"$cmt... ");
 pb_log(1,"Executing $cmd\n");
-system($cmd);
+system("$cmd 2>&1 > $ENV{'PBTMP'}/system.log");
 my $res = $?;
 if ($res == -1) {
-    pb_log(0,"failed to execute ($cmd) : $!\n");
+    pb_log(0,"failed to execute ($cmd): $!\n");
     pb_display_file("$ENV{'PBTMP'}/system.log");
 } elsif ($res & 127) {
@@ -149 +150 @@
 } elsif ($res == 0) {
     pb_log(0,"OK\n");
+    pb_display_file("$ENV{'PBTMP'}/system.log") if (defined $verbose);
 } else {
     pb_log(0, "child ($cmd) exited with value ".($? >> 8)."\n");