r13820 - /scripts/qa/DebianQA/Archive.pm

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

Author: tincho-guest
Date: Tue Jan 29 06:11:41 2008
New Revision: 13820

URL: http://svn.debian.org/wsvn/?sc=1&rev=13820
Log:
Correctly handle missing archive cache -- now for real :)

Modified:
    scripts/qa/DebianQA/Archive.pm

Modified: scripts/qa/DebianQA/Archive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Archive.pm?rev=13820&op=diff
==============================================================================
--- scripts/qa/DebianQA/Archive.pm (original)
+++ scripts/qa/DebianQA/Archive.pm Tue Jan 29 06:11:41 2008
@@ -58,12 +58,12 @@
     my $data = {};
     unless($force) {
         $data = read_cache("archive", "", 0);
-        $force = 1 unless($data);
     }
     my $modified;
     foreach my $src (@list) {
         # I use find_stamp incorrectly on purpose: so each key acts as a root
-        if($force or $ttl{$src} * 60 < time - find_stamp($data->{$src}, "")) {
+        if($force or ! $data->{$src}
+                or $ttl{$src} * 60 < time - find_stamp($data->{$src}, "")) {
             info("$src is stale, getting new version") unless($force);
             my $d;
             if($src eq "new") {