Changeset 218 for trunk


Ignore:
Timestamp:
Sep 13, 2007, 4:09:52 PM (17 years ago)
Author:
joergs
Message:

performance improvements (svn ls)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/dasscm/dasscm

    r217 r218  
    309309sub svn_getStoredFiles( ;$ )
    310310{
    311 
    312311    # TODO: get_filenames?
    313312    #my $rel_path = shift || "";
    314313    #my $path = "${DASSCM_REPO}/${rel_path}";
    315314    my $path = ${DASSCM_REPO};
    316     ( my $rc, my @result ) =
    317       run_command("$SVN ls --recursive $svnCheckoutCredentials $path");
     315    # svn ls -R is better, but much, much slower
     316    # ( my $rc, my @result ) = run_command("$SVN ls --recursive $svnCheckoutCredentials $path");
     317    ( my $rc, my @result ) = run_command("cd $path && find | grep -v '/.svn' | sed -e 's/\.\\///' | grep -v '^\$'");
    318318    if ( $rc != 0 ) {
    319319        print @result;
Note: See TracChangeset for help on using the changeset viewer.