r9579 - /scripts/qa/DebianQA/Watch.pm

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

Author: tincho-guest
Date: Mon Nov 19 04:07:28 2007
New Revision: 9579

URL: http://svn.debian.org/wsvn/?sc=1&rev=9579
Log:
Better handling of unreleased packages

Modified:
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=9579&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Mon Nov 19 04:07:28 2007
@@ -81,14 +81,14 @@
                 }
                 $watch{$md5} = { watch_error => $watcherr, %uscand };
             }
-            my $diff;
-            if($watch{$md5}{upstream_mangled}) {
+            my $diff = 0;
+            if(not $watch{$md5}{upstream_mangled}) {
+                $watch{$md5}{watch_error} ||= "Error";
+            } elsif($wline->{mangled_ver}) {
                 $diff = deb_compare($wline->{mangled_ver},
-                    $watch{$md5}{upstream_mangled}) if($wline->{mangled_ver});
+                    $watch{$md5}{upstream_mangled});
                 $watch{$md5}{watch_error} = "InvalidVersion" unless(
                     defined $diff);
-            } else {
-                $watch{$md5}{watch_error} ||= "Error";
             }
             push @wresult, { diff => $diff, %{$watch{$md5}} };
         }