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

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

Author: tincho-guest
Date: Wed Jan  9 22:42:14 2008
New Revision: 12348

URL: http://svn.debian.org/wsvn/?sc=1&rev=12348
Log:
Avoid listing as "needs upload" packages that have an UNRELEASED changelog entry.

Modified:
    scripts/qa/DebianQA/Classification.pm

Modified: scripts/qa/DebianQA/Classification.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Classification.pm?rev=12348&op=diff
==============================================================================
--- scripts/qa/DebianQA/Classification.pm (original)
+++ scripts/qa/DebianQA/Classification.pm Wed Jan  9 22:42:14 2008
@@ -69,6 +69,7 @@
         # SVN versus archive
         my $archive_ver = $data->{archive}{$pkg}{most_recent};
         my $svn_ver = $data->{svn}{$pkg}{version};
+        my $svn_unrel_ver = $data->{svn}{$pkg}{un_version};
         if(not $svn_ver or not $archive_ver) {
             if(not $svn_ver) {
                 $status{not_finished} = 1;
@@ -79,7 +80,8 @@
         } elsif(deb_compare($archive_ver, $svn_ver) > 0) {
             $status{repo_ancient} = 1;
             push @notes, "$archive_ver > $svn_ver";
-        } elsif(deb_compare($archive_ver, $svn_ver) != 0) {
+        } elsif(deb_compare($archive_ver, $svn_ver) != 0
+                and not $svn_unrel_ver) {
             $status{needs_upload} = 1;
         }
         # SVN versus upstream