r8858 - in /scripts/qa/QA: DebBugs.pm DebianArchive.pm Svn.pm

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

Author: tincho-guest
Date: Sun Nov  4 19:36:36 2007
New Revision: 8858

URL: http://svn.debian.org/wsvn/?sc=1&rev=8858
Log:
Getters with optional argument

Modified:
    scripts/qa/QA/DebBugs.pm
    scripts/qa/QA/DebianArchive.pm
    scripts/qa/QA/Svn.pm

Modified: scripts/qa/QA/DebBugs.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/DebBugs.pm?rev=8858&op=diff
==============================================================================
--- scripts/qa/QA/DebBugs.pm (original)
+++ scripts/qa/QA/DebBugs.pm Sun Nov  4 19:36:36 2007
@@ -99,11 +99,13 @@
     unlock_cache("bts");
     return $cdata;
 }
+# Returns the hash of bugs. Doesn't download anything.
+sub bts_get {
+    return read_cache("bts", shift, 0);
+}
 # Returns the consolidated hash of bugs. Doesn't download anything.
-sub bts_get {
-    return read_cache("bts", "", 0);
-}
 sub bts_get_consolidated {
-    return read_cache("consolidated", "bts", 0);
+    my $path = shift || "";
+    return read_cache("consolidated", "bts/$path", 0);
 }
 1;

Modified: scripts/qa/QA/DebianArchive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/DebianArchive.pm?rev=8858&op=diff
==============================================================================
--- scripts/qa/QA/DebianArchive.pm (original)
+++ scripts/qa/QA/DebianArchive.pm Sun Nov  4 19:36:36 2007
@@ -107,10 +107,12 @@
 }
 # Returns the consolidated hash of versions. Doesn't download anything.
 sub deb_get_consolidated {
-    return read_cache("consolidated", "archive", 0);
-}
+    my $path = shift || "";
+    return read_cache("consolidated", "archive/$path", 0);
+}
+# Returns the hash of versions. Doesn't download anything.
 sub deb_get {
-    return read_cache("archive", "", 0);
+    return read_cache("archive", shift, 0);
 }
 sub get_sources {
     my($suite) = shift;

Modified: scripts/qa/QA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/QA/Svn.pm?rev=8858&op=diff
==============================================================================
--- scripts/qa/QA/Svn.pm (original)
+++ scripts/qa/QA/Svn.pm Sun Nov  4 19:36:36 2007
@@ -163,13 +163,14 @@
     unlock_cache("svn");
     return $cdata;
 }
+# Returns the hash of svn info. Doesn't download anything.
+sub svn_get() {
+    return read_cache("svn", shift, 0);
+}
 # Returns the consolidated hash of svn info. Doesn't download anything.
 sub svn_get_consolidated() {
-    return read_cache("consolidated", "svn", 0);
-}
-# Returns the hash of svn info. Doesn't download anything.
-sub svn_get() {
-    return read_cache("svn", "", 0);
+    my $path = shift || "";
+    return read_cache("consolidated", "svn/$path", 0);
 }
 # Searches the source package name given a svn directory name
 # Returns undef if not found