r16018 - in /scripts/qa/DebianQA: Classification.pm Svn.pm

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Sat Mar 1 07:13:32 UTC 2008


Author: tincho-guest
Date: Sat Mar  1 07:13:31 2008
New Revision: 16018

URL: http://svn.debian.org/wsvn/?sc=1&rev=16018
Log:
Add detection and reporting of bugs closed in changelogs which aren't uploaded yet

Modified:
    scripts/qa/DebianQA/Classification.pm
    scripts/qa/DebianQA/Svn.pm

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=16018&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Sat Mar  1 07:13:31 2008
@@ -146,6 +146,15 @@
         }
         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
+                    not $status{needs_upload});
+                push(@{$data->{bts}{$pkg}{keywordsA}},
+                    "svn-pending-".$data->{svn}{closes}{$_});
+                $data->{bts}{$pkg}{keywords} .=
+                " svn-pending-".$data->{svn}{closes}{$_};
+            }
         }
         if($CFG{common}{group_email}
                 and $data->{archive}{$pkg}{control}{maintainer}

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=16018&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Sat Mar  1 07:13:31 2008
@@ -341,6 +341,7 @@
                 "\n",
                 map( $lastchl->$_, qw(Header Changes Trailer) ),
             );
+            $svn{$dir}{closes}{$_} = "released" foreach($lastchl->Closes);
         }
         if($unfinishedchl) {
             $svn{$dir}{un_version} = $unfinishedchl->Version;
@@ -350,6 +351,7 @@
                 "\n",
                 map( $unfinishedchl->$_, qw(Header Changes Trailer) ),
             );
+            $svn{$dir}{closes}{$_} = "unreleased" foreach($lastchl->Closes);
         }
         if($svn{$dir}{pkgname} ne $parser->dpkg()->{Source}) {
             $svn{$dir}{error} = "SourceNameMismatch";




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