[backend] make find_linked_sources more scalable

openSUSE · Jul 22, 2015 · 2bbbbe9 · 2bbbbe9
1 parent 8ccba5a
commit 2bbbbe9
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/src/backend/bs_sched b/src/backend/bs_sched
@@ -3642,6 +3642,7 @@ sub calc_projpacks_linked {
       push @projpacks_linked, @li;
     }
   }
+  print "projpacks_linked contains ".@projpacks_linked." entries\n";
   #print Dumper(\@projpacks_linked);
 }
 
@@ -3654,9 +3655,15 @@ sub find_linked_sources {
   my ($projid, $packids) = @_;
   my %linked;
   if ($packids) {
-    for my $packid (unify(@$packids)) {
-      for my $linfo (grep {$_->{'project'} eq $projid && ($_->{'package'} eq $packid || $_->{'package'} eq ':*')} @projpacks_linked) {
-	push @{$linked{$linfo->{'myproject'}}}, defined($linfo->{'mypackage'}) ? $linfo->{'mypackage'} : $packid;
+    my %packids = map {$_ => 1} @$packids;
+    my @packids = sort(keys %packids);
+    $packids{':*'} = 1;
+    for my $linfo (grep {$_->{'project'} eq $projid} @projpacks_linked) {
+      next unless $packids{$linfo->{'package'}};
+      if (defined($linfo->{'mypackage'})) {
+        push @{$linked{$linfo->{'myproject'}}}, $linfo->{'mypackage'};
+      } else {
+        push @{$linked{$linfo->{'myproject'}}}, @packids;
       }
     }
   } else {