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

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Thu Feb 28 21:03:34 UTC 2008


Author: tincho-guest
Date: Thu Feb 28 21:03:33 2008
New Revision: 15909

URL: http://svn.debian.org/wsvn/?sc=1&rev=15909
Log:
A stupid typo and proper handling of packages without a relased version

Modified:
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=15909&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Thu Feb 28 21:03:33 2008
@@ -127,18 +127,23 @@
         foreach my $wline (@{$svndata->{watch}}) {
             my $md5 = $wline->{md5};
             next unless($md5);
-            if($cdata->{md5}{error}) {
-                $error = $cdata->{md5}{error};
+            if($cdata->{$md5}{error}) {
+                $error = $cdata->{$md5}{error};
                 next;
             }
-            next unless($cdata->{$md5}{upstream_mangled}
-                    and $wline->{mangled_ver});
-
-            push @wresult, {
-                diff => deb_compare($wline->{mangled_ver},
-                    $cdata->{$md5}{upstream_mangled}),
-                %{$cdata->{$md5}}
-            };
+            next unless($cdata->{$md5}{upstream_mangled});
+            if($wline->{mangled_ver}) {
+                push @wresult, {
+                    diff => deb_compare($wline->{mangled_ver},
+                        $cdata->{$md5}{upstream_mangled}),
+                    %{$cdata->{$md5}}
+                };
+            } else { # There's no debian version
+                push @wresult, {
+                    diff => -1,
+                    %{$cdata->{$md5}}
+                };
+            }
         }
         unless(@wresult) {
             $watch2{$pkg} = { error => $error || "MissingData?" };




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