r8910 - /scripts/qa/qareport

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

Author: tincho-guest
Date: Tue Nov  6 10:29:54 2007
New Revision: 8910

URL: http://svn.debian.org/wsvn/?sc=1&rev=8910
Log:
Compare correctly versions

Modified:
    scripts/qa/qareport

Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8910&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Tue Nov  6 10:29:54 2007
@@ -43,7 +43,7 @@
     my $werr = $data->{watch}{$pkg}{error};
     my $dver = $data->{svn}{$pkg}{version} || 0;
     my $dwerr = $data->{svn}{$pkg}{watch_error};
-    my $m_dver = $data->{svn}{$pkg}{version} || 0;
+    my $m_dver = $data->{svn}{$pkg}{mangled_ver} || 0;
     my $undver = $data->{svn}{$pkg}{un_version};
     my $archver = $data->{archive}{$pkg}{most_recent} || 0;
     my $uver = $data->{watch}{$pkg}{upstream_ver};
@@ -53,7 +53,7 @@
     my $status;
     if(! $dver) {
         $status = "Needs finishing";
-    } elsif($dwerr) {
+    } elsif($dwerr or not $m_dver) {
         $status = "Watchfile problem";
     } elsif(deb_compare($archver, $dver) > 0) {
         $status = "Ancient version in SVN";
@@ -61,9 +61,9 @@
         $status = "Needs uploading";
     } elsif(! $uver) {
         $status = "Watchfile problem";
-    } elsif(deb_compare($dver, $uver) > 0) {
+    } elsif(deb_compare($m_dver, $uver) > 0) {
         $status = "Ancient version in upstream?";
-    } elsif(deb_compare($dver, $uver) != 0) {
+    } elsif(deb_compare($m_dver, $uver) != 0) {
         $status = "Needs upgrading to newer upstream";
     }
     next unless($status or @bugs);