r8984 - /scripts/qa/qareport

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Wed Nov  7 18:17:36 2007
New Revision: 8984

URL: http://svn.debian.org/wsvn/?sc=1&rev=8984
Log:
Reflect new bts cache

Modified:
    scripts/qa/qareport

Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8984&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Wed Nov  7 18:17:36 2007
@@ -49,8 +49,7 @@
     my $archsuit = $data->{archive}{$pkg}{most_recent_src} || 0;
     my $uver = $data->{watch}{$pkg}{upstream_ver};
     my $m_uver = $data->{watch}{$pkg}{upstream_mangled};
-    my @bugs = @{$data->{bts}{$pkg}};
-    @bugs = map({ "#$_" } @bugs);
+    my @bugs = map({ "#$_" } keys %{$data->{bts}{$pkg}});
 
     my $status;
     if(! $dver) {