r9002 - /scripts/qa/DebianQA/Svn.pm

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

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 {