r9070 - /scripts/qa/qareport.cgi

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Nov  9 13:48:13 2007
New Revision: 9070

URL: http://svn.debian.org/wsvn/?sc=1&rev=9070
Log:
Use mangled unreleased version (if available) when comparing SVN version to upstream (also mangled)

Modified:
    scripts/qa/qareport.cgi

Modified: scripts/qa/qareport.cgi
URL: http://svn.debian.org/wsvn/scripts/qa/qareport.cgi?rev=9070&op=diff
==============================================================================
--- scripts/qa/qareport.cgi (original)
+++ scripts/qa/qareport.cgi Fri Nov  9 13:48:13 2007
@@ -51,6 +51,7 @@
     my $dver = $data->{svn}{$pkg}{version} || 0;
     my $dwerr = $data->{svn}{$pkg}{watch_error};
     my $m_dver = $data->{svn}{$pkg}{unmangled_ver} || 0;
+    my $m_uver = $data->{svn}{$pkg}{unmangled_un_ver} || 0;
     my $undver = $data->{svn}{$pkg}{un_version};
     my $archver = $data->{archive}{$pkg}{most_recent} || 0;
     my $archsuit = $data->{archive}{$pkg}{most_recent_src} || 0;
@@ -104,10 +105,9 @@
         $dest ||= \@weird;
         $todo{upstream} = 1;
     }
-    # there's a bug here
-    # see libdevice-serialport-perl
-    # we need mangled unreleased version too, $undver is not mangled
-    if(deb_compare($undver||$m_dver, $u_uver) < 0) {
+    # Use only mangled versions
+    # Try comparing with latest (even unreleased) version first
+    if(deb_compare($m_uver||$m_dver, $u_uver) < 0) {
         push @notes, "$m_dver needs upgrading to newer upstream";
         $dest ||= \@for_upgrade;
         $todo{repo} = 1;