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

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

Author: tincho-guest
Date: Tue Jan 29 06:08:03 2008
New Revision: 13819

URL: http://svn.debian.org/wsvn/?sc=1&rev=13819
Log:
Correctly handle missing archive cache

Modified:
    scripts/qa/DebianQA/Archive.pm

Modified: scripts/qa/DebianQA/Archive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Archive.pm?rev=13819&op=diff
==============================================================================
--- scripts/qa/DebianQA/Archive.pm (original)
+++ scripts/qa/DebianQA/Archive.pm Tue Jan 29 06:08:03 2008
@@ -58,6 +58,7 @@
     my $data = {};
     unless($force) {
         $data = read_cache("archive", "", 0);
+        $force = 1 unless($data);
     }
     my $modified;
     foreach my $src (@list) {