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

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Sat Mar 1 08:44:15 UTC 2008


Author: tincho-guest
Date: Sat Mar  1 08:44:14 2008
New Revision: 16023

URL: http://svn.debian.org/wsvn/?sc=1&rev=16023
Log:
svn-pending-(un)?released -> svn-(un)?released:pending

Modified:
    scripts/qa/DebianQA/Classification.pm

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=16023&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Sat Mar  1 08:44:14 2008
@@ -150,10 +150,10 @@
                 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}{$pkg}{closes}{$_});
-                $data->{bts}{$pkg}{$_}{keywords} .=
-                " svn-pending-".$data->{svn}{$pkg}{closes}{$_};
+                # Values is released|unreleased.
+                my $tag = "svn-".$data->{svn}{$pkg}{closes}{$_}.":pending";
+                push(@{$data->{bts}{$pkg}{$_}{keywordsA}}, $tag);
+                $data->{bts}{$pkg}{$_}{keywords} .= " $tag";
             }
         }
         if($CFG{common}{group_email}




More information about the Pkg-perl-cvs-commits mailing list