r9002 - /scripts/qa/DebianQA/Svn.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Wed Nov 7 22:14:24 UTC 2007
Author: tincho-guest
Date: Wed Nov 7 22:14:24 2007
New Revision: 9002
URL: http://svn.debian.org/wsvn/?sc=1&rev=9002
Log:
Make svn_download return a list of changed directories
Modified:
scripts/qa/DebianQA/Svn.pm
Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=9002&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Wed Nov 7 22:14:24 2007
@@ -29,6 +29,7 @@
use DebianQA::DebVersions;
use SVN::Client;
+# Returns the list of changed directories
sub svn_download {
my($force, $revision, @dirlist) = @_;
$force ||= 0;
@@ -60,7 +61,7 @@
my $cdata = read_cache("svn", "", 0);
if(find_stamp($cdata, "") == $revision
and keys(%$cdata) > @dirlist + 1) {
- return $cdata; # Cache is up-to-date
+ return (); # Cache is up-to-date
}
# Stamps from cache
@@ -178,7 +179,7 @@
}
update_cache("consolidated", \%svn2, "svn", 1, 0);
unlock_cache("svn");
- return $cdata;
+ return @changed;
}
# Returns the hash of svn info. Doesn't download anything.
sub svn_get {
More information about the Pkg-perl-cvs-commits
mailing list