Changeset 347 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Base.pm

Timestamp:

Apr 3, 2008, 1:18:55 AM (16 years ago)

Author:

Bruno Cornec

Message:

setupvm seems better now

File:

• devel/pb/lib/ProjectBuilder/Base.pm (modified) (2 diffs)

devel/pb/lib/ProjectBuilder/Base.pm

@@ -832 +832 @@
 #system("$cmd 2>&1 > $ENV{'PBTMP'}/system.log");
 system($cmd);
-if ($? == -1) {
+my $res = $?;
+if ($res == -1) {
     pb_log(0,"failed to execute ($cmd) : $!\n");
     pb_display_file("$ENV{'PBTMP'}/system.log");
-} elsif ($? & 127) {
+} elsif ($res & 127) {
     pb_log(0, "child ($cmd) died with signal ".($? & 127).", ".($? & 128) ? 'with' : 'without'." coredump\n");
     pb_display_file("$ENV{'PBTMP'}/system.log");
-} elsif ($? == 0) {
+} elsif ($res == 0) {
     pb_log(0,"OK\n");
 } else {
@@ -844 +845 @@
     pb_display_file("$ENV{'PBTMP'}/system.log");
 }
+return($res);
 }