Ignore:
Timestamp:
Jun 3, 2008, 2:49:42 AM (12 years ago)
Author:
Bruno Cornec
Message:

announce function - begining of coding

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb-modules/lib/ProjectBuilder/Base.pm

    r423 r471  
    136136my $cmd=shift;
    137137my $cmt=shift || $cmd;
     138my $verbose=shift || undef;
    138139
    139140pb_log(0,"$cmt... ");
    140141pb_log(1,"Executing $cmd\n");
    141 system($cmd);
     142system("$cmd 2>&1 > $ENV{'PBTMP'}/system.log");
    142143my $res = $?;
    143144if ($res == -1) {
    144     pb_log(0,"failed to execute ($cmd) : $!\n");
     145    pb_log(0,"failed to execute ($cmd): $!\n");
    145146    pb_display_file("$ENV{'PBTMP'}/system.log");
    146147} elsif ($res & 127) {
     
    149150} elsif ($res == 0) {
    150151    pb_log(0,"OK\n");
     152    pb_display_file("$ENV{'PBTMP'}/system.log") if (defined $verbose);
    151153} else {
    152154    pb_log(0, "child ($cmd) exited with value ".($? >> 8)."\n");
Note: See TracChangeset for help on using the changeset viewer.