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

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

Author: tincho-guest
Date: Fri Feb  1 05:34:59 2008
New Revision: 13934

URL: http://svn.debian.org/wsvn/?sc=1&rev=13934
Log:
Avoid filling the cache with unusable data

Modified:
    scripts/qa/DebianQA/Archive.pm

Modified: scripts/qa/DebianQA/Archive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Archive.pm?rev=13934&op=diff
==============================================================================
--- scripts/qa/DebianQA/Archive.pm (original)
+++ scripts/qa/DebianQA/Archive.pm Fri Feb  1 05:34:59 2008
@@ -176,6 +176,10 @@
             s/\n\s+//gm;
             my($pkg) = /^package:\s*(\S+)\s*$/mi or next;
             my($ver) = /^version:\s*(\S+)\s*$/mi or next;
+            if($suite ne "unstable") {
+                $vers{$pkg} = { ver => $ver };
+                next;
+            }
             my($b_d) = /^build-depends:\s*(.+)\s*$/mi;
             my($b_d_i) = /^build-depends-indep:\s*(.+)\s*$/mi;
             my($maint) = /^maintainer:\s*(.+)\s*$/mi;