- Timestamp:
- May 26, 2012, 5:05:42 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1597 r1602 163 163 # Exit now if the command may fail 164 164 if ((defined $verbose) and ($verbose eq "mayfail")) { 165 pb_log(0," N/A\n") if ($res != 0);165 pb_log(0,"non blocking ERROR $res ($!)\n") if ($res != 0); 166 166 pb_log(0,"OK\n") if ($res == 0); 167 167 return($res) … … 170 170 my $cwd = getcwd; 171 171 my $error = undef; 172 $error = " failed to execute ($cmd) in $cwd: $!\n" if ($res == -1);173 $error = " child ($cmd) died with signal ".($res & 127).", ".($res & 128) ? 'with' : 'without'." coredump\n" if ($res & 127);174 $error = " child ($cmd) cwd=$cwd exited with value ".($res >> 8)."\n" if ($res != 0);172 $error = "ERROR: failed to execute ($cmd) in $cwd: $!\n" if ($res == -1); 173 $error = "ERROR: child ($cmd) died with signal ".($res & 127).", ".($res & 128) ? 'with' : 'without'." coredump\n" if ($res & 127); 174 $error = "ERROR: child ($cmd) cwd=$cwd exited with value ".($res >> 8)."\n" if ($res != 0); 175 175 176 176 if (defined $error) { … … 178 178 pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((-f "$ENV{'PBTMP'}/system.$$.log") and ((! defined $verbose) || ($verbose ne "quiet") || $Global::pb_stop_on_error)); 179 179 if ($Global::pb_stop_on_error) { 180 confess "error running command ($cmd) with cwd=$cwd, pid=$$"; 181 } 180 confess("ERROR running command ($cmd) with cwd=$cwd, pid=$$"); 181 } else { 182 pb_log(0,"ERROR running command ($cmd) with cwd=$cwd, pid=$$"); 182 183 } else { 183 184 pb_log(0,"OK\n") if ((! defined $verbose) || ($verbose ne "quiet"));
Note:
See TracChangeset
for help on using the changeset viewer.