Changeset 30 in ProjectBuilder for devel/pb/lib/common.pm
- Timestamp:
- Aug 2, 2007, 12:39:27 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/common.pm
r29 r30 132 132 133 133 my $cmd=shift; 134 my $cmt=shift || $cm t=$cmd;134 my $cmt=shift || $cmd; 135 135 136 print $LOG "$cmt ...";136 print $LOG "$cmt... "; 137 137 system("$cmd"); 138 138 if ($? == -1) { … … 141 141 printf $LOG "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without' if ($debug >= 0); 142 142 } else { 143 print $LOG " OK\n" if ($debug >= 0); 143 print $LOG "OK\n" if ($debug >= 0); 144 } 144 145 } 145 146 1;
Note:
See TracChangeset
for help on using the changeset viewer.