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

Timestamp:

Dec 13, 2010, 2:53:10 AM (13 years ago)

Author:

Bruno Cornec

Message:

• Use potentially Sys::CPU if present to determine number of cores (1 by default)
• Adds a conf param to force number of cores (pbparallel)
• Adds doc for pbparallel, oscmd, oscmdopt

File:

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

devel/pb/bin/pb

@@ -498 +498 @@
 # Check for command requirements
 #
-my ($req,$opt) = pb_conf_get_if("oscmd","oscmdopt");
+my ($req,$opt,$pbpara) = pb_conf_get_if("oscmd","oscmdopt","pbparallel");
 my ($req2,$opt2) = (undef,undef);
 $req2 = $req->{$appname} if (defined $req);
@@ -507 +507 @@
 # Check if we can launch some actions in // with Parallel::ForkManager
 #
-my $pbparallel = 12;
+my $pbparallel = $pbpara->{$appname} if (defined $pbpara);
+if (not defined $pbparallel) {
+    eval
+    {
+        require Sys::CPU;
+        Sys::CPU->import();
+    };
+    if ($@) {
+        # Sys::CPU not found, defaulting to 1
+        $pbparallel = 1;
+    } else {
+        # Using the number of cores
+        $pbparallel = Sys::CPU::cpu_count();
+    }
+}
+
 eval
 {