X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FSOAP.pm;h=a0c3cbf2190d06ea3f5b04dfb9d9278039929990;hp=9ed0249b863731504e1975eb105edd90a34abfe3;hb=55f7f920a1b350e3124fd502e7d899388892ee8f;hpb=8e2468e4725d9784c5e99915cee75c3cc41903cf

diff --git a/Debbugs/SOAP.pm b/Debbugs/SOAP.pm
index 9ed0249..a0c3cbf 100644
--- a/Debbugs/SOAP.pm
+++ b/Debbugs/SOAP.pm
@@ -127,6 +127,7 @@ sub get_status {
 	      @bugs = @{$bugs[0]};
      }
      my %status;
+     my %binary_to_source_cache;
      for my $bug (@bugs) {
 	  my $bug_status;
 	  if (ref($bug)) {
@@ -134,11 +135,14 @@ sub get_status {
 	       next unless defined $param{bug};
 	       $bug = $param{bug};
 	       $bug_status = get_bug_status(map {(exists $param{$_})?($_,$param{$_}):()}
-					    qw(bug dist arch bugusertags sourceversions version indicatesource)
+					    qw(bug dist arch bugusertags sourceversions version indicatesource),
+					    binary_to_source_cache => \%binary_to_source_cache,
 					   );
 	  }
 	  else {
-	       $bug_status = get_bug_status(bug => $bug);
+	      $bug_status = get_bug_status(bug => $bug,
+					   binary_to_source_cache => \%binary_to_source_cache,
+					  );
 	  }
 	  if (defined $bug_status and keys %{$bug_status} > 0) {
 	       $status{$bug}  = $bug_status;