r16021 - /scripts/qa/DebianQA/Classification.pm

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

Author: tincho-guest
Date: Sat Mar  1 07:26:16 2008
New Revision: 16021

URL: http://svn.debian.org/wsvn/?sc=1&rev=16021
Log:
missed some hash keys...

Modified:
    scripts/qa/DebianQA/Classification.pm

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=16021&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Sat Mar  1 07:26:16 2008
@@ -147,13 +147,13 @@
         if($data->{bts}{$pkg} and %{$data->{bts}{$pkg}}) {
             $status{has_bugs} = 1;
             foreach(keys %{$data->{bts}{$pkg}}) {
-                next unless($data->{svn}{closes}{$_});
-                next if($data->{svn}{closes}{$_} eq "released" and
+                next unless($data->{svn}{$pkg}{closes}{$_});
+                next if($data->{svn}{$pkg}{closes}{$_} eq "released" and
                     not $status{needs_upload});
-                push(@{$data->{bts}{$pkg}{keywordsA}},
-                    "svn-pending-".$data->{svn}{closes}{$_});
-                $data->{bts}{$pkg}{keywords} .=
-                " svn-pending-".$data->{svn}{closes}{$_};
+                push(@{$data->{bts}{$pkg}{$_}{keywordsA}},
+                    "svn-pending-".$data->{svn}{$pkg}{closes}{$_});
+                $data->{bts}{$pkg}{$_}{keywords} .=
+                " svn-pending-".$data->{svn}{$pkg}{closes}{$_};
             }
         }
         if($CFG{common}{group_email}