r8885 - in /scripts/qa/DebianQA: Archive.pm Watch.pm

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

Author: tincho-guest
Date: Mon Nov  5 20:43:22 2007
New Revision: 8885

URL: http://svn.debian.org/wsvn/?sc=1&rev=8885
Log:
Bad use line in Archive. Bug in watch

Modified:
    scripts/qa/DebianQA/Archive.pm
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Archive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Archive.pm?rev=8885&op=diff
==============================================================================
--- scripts/qa/DebianQA/Archive.pm (original)
+++ scripts/qa/DebianQA/Archive.pm Mon Nov  5 20:43:22 2007
@@ -20,7 +20,7 @@
 use DebianQA::Common;
 use DebianQA::Config '$MIRROR';
 use DebianQA::Svn;
-use DebianQA::VerComp;
+use DebianQA::DebVersions;
 use LWP::UserAgent;
 #use IO::Uncompress::Gunzip; # Only in lenny
 use IO::Scalar;

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8885&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Mon Nov  5 20:43:22 2007
@@ -76,7 +76,8 @@
             if($watch{$md5}{upstream_mangled}) {
                 $diff = deb_compare($wline->{unmangled_ver},
                     $watch{$md5}{upstream_mangled});
-                $watch{$md5}{watch_error} = "InvalidVersion" unless($diff);
+                $watch{$md5}{watch_error} = "InvalidVersion" unless(
+                    defined $diff);
             }
             push @wresult, [ $diff, @{$watch{$md5}}{
                 qw/watch_error upstream_version upstream_mangled/ } ];