Changeset 1125 in ProjectBuilder for devel/pb/bin/pb
- Timestamp:
- Dec 13, 2010, 2:06:08 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/bin/pb
r1124 r1125 503 503 $opt2 = $opt->{$appname} if (defined $opt); 504 504 pb_check_requirements($req2,$opt2); 505 506 # 507 # Check if we can launch some actions in // with Parallel::ForkManager 508 # 509 my $pbparallel = 12; 510 eval 511 { 512 require Parallel::ForkManager; 513 Parallel::ForkManager->import(); 514 }; 515 # Parallel::ForkManager not found so no // actions 516 if ($@) { 517 $pbparallel = undef; 518 } 505 519 506 520 pb_log(0,"Project: $ENV{'PBPROJ'}\n"); … … 780 794 } 781 795 796 # Try to use // processing here 797 my $pm = new Parallel::ForkManager($pbparallel) if (defined $pbparallel); 798 782 799 foreach my $d (keys %virt) { 800 $pm->start and next if (defined $pbparallel); 783 801 my ($name,$ver,$arch) = split(/-/,$d); 784 802 pb_log(0,"Bad format for $d") if ((not defined $name) || (not defined $ver) || (not defined $arch)) ; … … 864 882 } 865 883 } 866 } 884 $pm->finish if (defined $pbparallel); 885 } 886 $pm->wait_all_children if (defined $pbparallel); 867 887 my @found; 868 888 my @notfound;
Note:
See TracChangeset
for help on using the changeset viewer.