r12766 - /scripts/qa/DebianQA/Archive.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Jan 15 12:37:00 UTC 2008
Author: tincho-guest
Date: Tue Jan 15 12:36:53 2008
New Revision: 12766
URL: http://svn.debian.org/wsvn/?sc=1&rev=12766
Log:
Fix to make Archive work correctly with the new versioning of data files.
Modified:
scripts/qa/DebianQA/Archive.pm
Modified: scripts/qa/DebianQA/Archive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Archive.pm?rev=12766&op=diff
==============================================================================
--- scripts/qa/DebianQA/Archive.pm (original)
+++ scripts/qa/DebianQA/Archive.pm Tue Jan 15 12:36:53 2008
@@ -61,7 +61,8 @@
}
my $modified;
foreach my $src (@list) {
- if($force or $ttl{$src} * 60 < time - find_stamp($data, $src)) {
+ # 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}, "")) {
info("$src is stale, getting new version") unless($force);
my $d;
if($src eq "new") {
@@ -77,7 +78,7 @@
}
}
}
- return $data->{global} unless($modified);
+ return unless($modified);
info("Re-generating consolidated hash");
my $pkgs = get_pkglist_hashref();
# retain lock, we need consistency
@@ -100,7 +101,7 @@
}
$data = update_cache("consolidated", $g, "archive", 1, 0);
unlock_cache("archive");
- return $data;
+ return;
}
# Returns the consolidated hash of versions. Doesn't download anything.
sub deb_get_consolidated {
More information about the Pkg-perl-cvs-commits
mailing list