Changeset 1505 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Base.pm
- Timestamp:
- May 9, 2012, 2:20:04 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1504 r1505 14 14 use strict; 15 15 use lib qw (lib); 16 use Carp 'cluck'; 17 use Cwd; 16 18 use File::Path; 17 19 use File::Temp qw(tempdir); … … 159 161 return($res) 160 162 } 161 if ($res == -1) { 162 pb_log(0,"failed to execute ($cmd): $!\n") if ((! defined $verbose) || ($verbose ne "quiet")); 163 pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((-f "$ENV{'PBTMP'}/system.$$.log") and ((! defined $verbose) || ($verbose ne "quiet"))); 164 } elsif ($res & 127) { 165 pb_log(0, "child ($cmd) died with signal ".($? & 127).", ".($? & 128) ? 'with' : 'without'." coredump\n") if ((! defined $verbose) || ($verbose ne "quiet")); 166 pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((-f "$ENV{'PBTMP'}/system.$$.log") and ((! defined $verbose) || ($verbose ne "quiet"))); 167 } elsif ($res == 0) { 163 164 my $cwd = getcwd; 165 my $error = undef; 166 $error = "failed to execute ($cmd) in $cwd: $!\n" if ($res == -1); 167 $error = "child ($cmd) died with signal ".($res & 127).", ".($res & 128) ? 'with' : 'without'." coredump\n" if ($res & 127); 168 $error = "child ($cmd) cwd=$cwd exited with value ".($res >> 8)."\n" if ($res != 0); 169 170 if (defined $error) { 171 pb_log(0, $error) if ((! defined $verbose) || ($verbose ne "quiet")) || $Global::pb_stop_on_error; 172 pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((-f "$ENV{'PBTMP'}/system.$$.log") and ((! defined $verbose) || ($verbose ne "quiet") || $Global::pb_stop_on_error)); 173 if ($Global::pb_stop_on_error) { 174 cluck "error running command ($cmd) with cwd=$cwd"; 175 exit(1); 176 } 177 } else { 168 178 pb_log(0,"OK\n") if ((! defined $verbose) || ($verbose ne "quiet")); 169 pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((defined $verbose) and (-f "$ENV{'PBTMP'}/system.$$.log") and ($verbose ne "quiet")); 170 } else { 171 pb_log(0, "child ($cmd) exited with value ".($? >> 8)."\n") if ((! defined $verbose) || ($verbose ne "quiet")); 172 pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((-f "$ENV{'PBTMP'}/system.$$.log") and ((! defined $verbose) || ($verbose ne "quiet"))); 173 } 179 pb_display_file("$ENV{'PBTMP'}/system.$$.log") if ((-f "$ENV{'PBTMP'}/system.$$.log") and (defined $verbose) and ($verbose ne "quiet")); 180 } 181 174 182 return($res); 175 183 }
Note:
See TracChangeset
for help on using the changeset viewer.