Changeset 2491 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Mar 31, 2020, 11:26:06 AM (4 years ago)

Author:

Bruno Cornec

Message:

Various perf improvements

• Avoid managing full changelog files when in testver
• Avoid loading a conf file in cache already handled
• set_waitpid_blocking_sleep(0)
• Use YAML::XS if available

File:

• devel/pb/bin/pb (modified) (6 diffs)

devel/pb/bin/pb

@@ -1318 +1318 @@
             # Try to use // processing here
             my $all_ok = 1;
-            my $pm = new Parallel::ForkManager($pbparallel) if (defined $pbparallel);
-            $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
-                                    $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); }) if (defined $pbparallel);
+            my $pm;
+            if (defined $pbparallel) {
+                $pm = new Parallel::ForkManager($pbparallel);
+                $pm->set_waitpid_blocking_sleep(0);
+                $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
+                                    $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); });
+            }
 
             pb_log(0,"Preparing delivery ...\n");
@@ -1736 +1740 @@
     if (defined $pbparallel) {
         $pm = new Parallel::ForkManager($pbparallel);
+        $pm->set_waitpid_blocking_sleep(0);
         $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
                                 $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); });
@@ -3117 +3122 @@
 if (defined $pbparallel) {
     $pm = new Parallel::ForkManager($pbparallel);
+    $pm->set_waitpid_blocking_sleep(0);
 
     # Set which port the VM/RM will use to communicate
@@ -3475 +3481 @@
 if (defined $pbparallel) {
     $pm = new Parallel::ForkManager($pbparallel);
+    $pm->set_waitpid_blocking_sleep(0);
 
     # Set which port the VM/RM will use to communicate
@@ -3812 +3819 @@
 if (defined $pbparallel) {
     $pm = new Parallel::ForkManager($pbparallel);
+    $pm->set_waitpid_blocking_sleep(0);
 
     # Set which port the VM/RM will use to communicate
@@ -4403 +4411 @@
 if (defined $pbparallel) {
     $pm = new Parallel::ForkManager($pbparallel);
+    $pm->set_waitpid_blocking_sleep(0);
 
     $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;