Changeset 503 in ProjectBuilder for devel/pb-modules
- Timestamp:
- Aug 5, 2008, 3:12:00 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Base.pm
r500 r503 152 152 my $redir = ""; 153 153 154 pb_log(0,"$cmt... ") if ( $verbose ne "quiet");154 pb_log(0,"$cmt... ") if ((! defined $verbose) || ($verbose ne "quiet")); 155 155 pb_log(1,"Executing $cmd\n"); 156 156 unlink("$ENV{'PBTMP'}/system.log") if (-f "$ENV{'PBTMP'}/system.log"); … … 165 165 } 166 166 if ($res == -1) { 167 pb_log(0,"failed to execute ($cmd): $!\n") if ( $verbose ne "quiet");168 pb_display_file("$ENV{'PBTMP'}/system.log") if ((-f "$ENV{'PBTMP'}/system.log") and ( $verbose ne "quiet"));167 pb_log(0,"failed to execute ($cmd): $!\n") if ((! defined $verbose) || ($verbose ne "quiet")); 168 pb_display_file("$ENV{'PBTMP'}/system.log") if ((-f "$ENV{'PBTMP'}/system.log") and ((! defined $verbose) || ($verbose ne "quiet"))); 169 169 } elsif ($res & 127) { 170 pb_log(0, "child ($cmd) died with signal ".($? & 127).", ".($? & 128) ? 'with' : 'without'." coredump\n") if ( $verbose ne "quiet");171 pb_display_file("$ENV{'PBTMP'}/system.log") if ((-f "$ENV{'PBTMP'}/system.log") and ( $verbose ne "quiet"));170 pb_log(0, "child ($cmd) died with signal ".($? & 127).", ".($? & 128) ? 'with' : 'without'." coredump\n") if ((! defined $verbose) || ($verbose ne "quiet")); 171 pb_display_file("$ENV{'PBTMP'}/system.log") if ((-f "$ENV{'PBTMP'}/system.log") and ((! defined $verbose) || ($verbose ne "quiet"))); 172 172 } elsif ($res == 0) { 173 pb_log(0,"OK\n") if ( $verbose ne "quiet");173 pb_log(0,"OK\n") if ((! defined $verbose) || ($verbose ne "quiet")); 174 174 pb_display_file("$ENV{'PBTMP'}/system.log") if ((defined $verbose) and (-f "$ENV{'PBTMP'}/system.log") and ($verbose ne "quiet")); 175 175 } else { 176 pb_log(0, "child ($cmd) exited with value ".($? >> 8)."\n") if ( $verbose ne "quiet");177 pb_display_file("$ENV{'PBTMP'}/system.log") if ((-f "$ENV{'PBTMP'}/system.log") and ( $verbose ne "quiet"));176 pb_log(0, "child ($cmd) exited with value ".($? >> 8)."\n") if ((! defined $verbose) || ($verbose ne "quiet")); 177 pb_display_file("$ENV{'PBTMP'}/system.log") if ((-f "$ENV{'PBTMP'}/system.log") and ((! defined $verbose) || ($verbose ne "quiet"))); 178 178 } 179 179 return($res);
Note:
See TracChangeset
for help on using the changeset viewer.