r8858 - in /scripts/qa/QA: DebBugs.pm DebianArchive.pm Svn.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Sun Nov 4 19:36:36 UTC 2007
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
More information about the Pkg-perl-cvs-commits
mailing list