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