Changeset 218

Timestamp:

Sep 13, 2007, 4:09:52 PM (17 years ago)

Author:

joergs

Message:

performance improvements (svn ls)

File:

• trunk/dasscm/dasscm (modified) (1 diff)

trunk/dasscm/dasscm

@@ -309 +309 @@
 sub svn_getStoredFiles( ;$ )
 {
-
     # TODO: get_filenames?
     #my $rel_path = shift || "";
     #my $path = "${DASSCM_REPO}/${rel_path}";
     my $path = ${DASSCM_REPO};
-    ( my $rc, my @result ) =
-      run_command("$SVN ls --recursive $svnCheckoutCredentials $path");
+    # svn ls -R is better, but much, much slower
+    # ( my $rc, my @result ) = run_command("$SVN ls --recursive $svnCheckoutCredentials $path");
+    ( my $rc, my @result ) = run_command("cd $path && find | grep -v '/.svn' | sed -e 's/\.\\///' | grep -v '^\$'");
     if ( $rc != 0 ) {
         print @result;