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

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

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 {