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

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Sat Dec 22 23:17:43 UTC 2007


Author: tincho-guest
Date: Sat Dec 22 23:17:42 2007
New Revision: 11487

URL: http://svn.debian.org/wsvn/?sc=1&rev=11487
Log:
Watch.pm was bumping the cache timestamp even when not re-checking the upstream
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=11487&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Sat Dec 22 23:17:42 2007
@@ -44,7 +44,7 @@
         @pkglist = grep(! /^\//, get_pkglist());
     }
     my $cdata = watch_get() unless($force);
-    my(%watch, %watch2);
+    my(%watch, %watch2, @not_updated);
     foreach my $pkg (@pkglist) {
         debug("Retrieving svn info for $pkg");
         my $svndata = svn_get(pkgname2svndir($pkg));
@@ -69,6 +69,7 @@
             if(not $force and $cdata->{$md5} and
                 $CFG{watch}{ttl} * 60 > time - find_stamp($cdata, $md5)) {
                 $watch{$md5} = $cdata->{$md5};
+                push @not_updated, $md5;
             } else {
                 my ($watcherr, %uscand) = uscan($wline->{line},
                     %{$wline->{opts}});
@@ -111,7 +112,9 @@
         delete($watch2{$pkg}{diff}) unless($watch2{$pkg}{diff});
         delete($watch2{$pkg}{watch_error}) unless($watch2{$pkg}{watch_error});
     }
-    update_cache("watch", \%watch, "", $complete, 1);
+    delete $watch{$_} foreach(@not_updated);
+    update_cache("watch", \%watch, "", $complete and not scalar @not_updated,
+        1);
     update_cache("consolidated", \%watch2, "watch", $complete, 0);
     unlock_cache("watch");
     info("watch: ", scalar @pkglist, " packages scanned");




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