r8898 - in /scripts/qa: DebianQA/BTS.pm DebianQA/Watch.pm fetchdata

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

Author: tincho-guest
Date: Tue Nov  6 09:22:53 2007
New Revision: 8898

URL: http://svn.debian.org/wsvn/?sc=1&rev=8898
Log:
Some minor corrections

Modified:
    scripts/qa/DebianQA/BTS.pm
    scripts/qa/DebianQA/Watch.pm
    scripts/qa/fetchdata   (contents, props changed)

Modified: scripts/qa/DebianQA/BTS.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/BTS.pm?rev=8898&op=diff
==============================================================================
--- scripts/qa/DebianQA/BTS.pm (original)
+++ scripts/qa/DebianQA/BTS.pm Tue Nov  6 09:22:53 2007
@@ -96,7 +96,7 @@
         $bugs{$pkgname} ||= {};
         my @blist = keys %{ $bugs{$pkgname} };
         # Remove done bugs
-        @blist = grep( { ref $bugs{$pkgname}
+        @blist = grep( { ref $bugs{$pkgname}{$_}
                     and not $bugs{$pkgname}{$_}{done} } @blist );
         $cbugs{$pkgname} = \@blist;
     }

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8898&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Tue Nov  6 09:22:53 2007
@@ -48,7 +48,7 @@
     my(%watch, %watch2);
     foreach my $pkg (@pkglist) {
         debug("Retrieving svn info for $pkg");
-        my $svndata = svn_get($pkg);
+        my $svndata = svn_get(pkgname2svndir($pkg));
         if($svndata->{watch_error}) {
             $watch2{$pkg} = { error => $svndata->{watch_error} };
             next;

Modified: scripts/qa/fetchdata
URL: http://svn.debian.org/wsvn/scripts/qa/fetchdata?rev=8898&op=diff
==============================================================================
--- scripts/qa/fetchdata (original)
+++ scripts/qa/fetchdata Tue Nov  6 09:22:53 2007
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # vim:ts=4:sw=4:et:ai:sts=4
-# $Id: Watch.pm 8885 2007-11-05 20:43:22Z tincho-guest $
+# $Id$
 #
 # Program for invoking the different data-fetching routines. To use from a
 # cronjob, interactively or on post-commit hooks.

Propchange: scripts/qa/fetchdata
------------------------------------------------------------------------------
    svn:keywords = Id