Changeset 29 in ProjectBuilder for devel/pb/lib/common.pm

Timestamp:

Aug 2, 2007, 12:36:11 AM (17 years ago)

Author:

Bruno Cornec

Message:

Use pbsystem everywhere

File:

• devel/pb/lib/common.pm (modified) (1 diff)

devel/pb/lib/common.pm

@@ -118 +118 @@
 
 sub pbmkdir_p {
-    my @dir = @_;
-    my $ret = mkpath(@dir, 0, 0755);
-    return($ret);
+my @dir = @_;
+my $ret = mkpath(@dir, 0, 0755);
+return($ret);
 }
 
 sub pbrm_rf {
-    my @dir = @_;
-    my $ret = rmtree(@dir, 0, 0);
-    return($ret);
+my @dir = @_;
+my $ret = rmtree(@dir, 0, 0);
+return($ret);
 }
 
+sub pbsystem {
+
+my $cmd=shift;
+my $cmt=shift || $cmt=$cmd;
+
+print $LOG "$cmt ...";
+system("$cmd");
+if ($? == -1) {
+    print $LOG "failed to execute: $!\n" if ($debug >= 0);
+} elsif ($? & 127) {
+    printf $LOG "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without' if ($debug >= 0);
+} else {
+    print $LOG " OK\n" if ($debug >= 0);
+}
 1;