- Timestamp:
- May 10, 2012, 12:47:44 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r1506 r1513 136 136 The second parameter is the message to print on screen. If none is given, then the command is printed. 137 137 The third parameter print the result of the command after correct execution if value is verbose. If value is noredir, it avoids redirecting outputs (e.g. for vi). If value is quiet, doesn't print anything at all. 138 The fourth parameter determines whether failure of the command is ok even if $Global::pb_stop_on_error is set, because the caller will be handling the error. 138 139 This function returns as a result the return value of the system command. 139 140 … … 147 148 my $cmt=shift || $cmd; 148 149 my $verbose=shift || undef; 150 my $failure_ok = shift || 0; 149 151 my $redir = ""; 150 152 … … 175 177 pb_log(0, $error) if ((! defined $verbose) || ($verbose ne "quiet")) || $Global::pb_stop_on_error; 176 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)); 177 if ( $Global::pb_stop_on_error) {178 cluck "error running command ($cmd) with cwd=$cwd ";179 if (($Global::pb_stop_on_error) && (! $failure_ok)) { 180 cluck "error running command ($cmd) with cwd=$cwd, pid=$$"; 179 181 exit(1); 180 182 }
Note:
See TracChangeset
for help on using the changeset viewer.