r13820 - /scripts/qa/DebianQA/Archive.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Jan 29 06:11:41 UTC 2008
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") {
More information about the Pkg-perl-cvs-commits
mailing list