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

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

Author: tincho-guest
Date: Tue Nov  6 08:21:20 2007
New Revision: 8894

URL: http://svn.debian.org/wsvn/?sc=1&rev=8894
Log:
Fixed the code that lists the repository, to avoid non-dirs

Modified:
    scripts/qa/DebianQA/Svn.pm

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=8894&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Tue Nov  6 08:21:20 2007
@@ -47,7 +47,9 @@
 
     if($complete) {
         info("Retrieving list of directories in SVN");
-        @dirlist = keys(%{$svn->ls($svnpath, 'HEAD', 0)});
+        my %dirlist = %{$svn->ls($svnpath, 'HEAD', 0)};
+        @dirlist = grep({ $dirlist{$_}->kind() == $SVN::Node::dir }
+            keys(%dirlist));
     }
     my(@changed, %svn);
     if($force) {