Changeset 29 in ProjectBuilder for devel/pb/lib
- Timestamp:
- Aug 2, 2007, 12:36:11 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/common.pm
r25 r29 118 118 119 119 sub pbmkdir_p { 120 121 122 120 my @dir = @_; 121 my $ret = mkpath(@dir, 0, 0755); 122 return($ret); 123 123 } 124 124 125 125 sub pbrm_rf { 126 127 128 126 my @dir = @_; 127 my $ret = rmtree(@dir, 0, 0); 128 return($ret); 129 129 } 130 130 131 sub pbsystem { 132 133 my $cmd=shift; 134 my $cmt=shift || $cmt=$cmd; 135 136 print $LOG "$cmt ..."; 137 system("$cmd"); 138 if ($? == -1) { 139 print $LOG "failed to execute: $!\n" if ($debug >= 0); 140 } elsif ($? & 127) { 141 printf $LOG "child died with signal %d, %s coredump\n", ($? & 127), ($? & 128) ? 'with' : 'without' if ($debug >= 0); 142 } else { 143 print $LOG " OK\n" if ($debug >= 0); 144 } 131 145 1;
Note:
See TracChangeset
for help on using the changeset viewer.