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

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

Author: tincho-guest
Date: Fri Feb  1 05:41:06 2008
New Revision: 13935

URL: http://svn.debian.org/wsvn/?sc=1&rev=13935
Log:
Add more debug messages

Modified:
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=13935&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Fri Feb  1 05:41:06 2008
@@ -48,19 +48,22 @@
     my $cdata = watch_get() unless($force);
     my(%watch, %watch2, @not_updated);
     foreach my $pkg (@pkglist) {
-        debug("Retrieving svn info for $pkg");
+        debug("Retrieving watchfile from svn for $pkg");
         my $svndata = svn_get(pkgname2svndir($pkg));
         if($svndata->{watch_error}) {
+            info("Error from svn: " . $svndata->{watch_error});
             $watch2{$pkg} = { error => $svndata->{watch_error} };
             next;
         }
         unless($svndata->{watch} and ref $svndata->{watch}
                 and ref $svndata->{watch} eq "ARRAY") {
+            info("Missing watch file");
             $watch2{$pkg} = { error => "Missing" };
             next;
         }
         my @wlines = @{$svndata->{watch}};
         unless(@wlines) {
+            info("Empty watch file");
             $watch2{$pkg} = { error => "Empty" };
             next;
         }