Subversion Repositories DevTools

Rev

Rev 1328 | Rev 2074 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1328 Rev 1429
Line 6175... Line 6175...
6175
    {
6175
    {
6176
        my $search = JatsLocateFiles->new('FullPath' );
6176
        my $search = JatsLocateFiles->new('FullPath' );
6177
        $search->recurse($recurse);
6177
        $search->recurse($recurse);
6178
        $search->filter_in_re ( $_ ) foreach ( @dir_tree_include );
6178
        $search->filter_in_re ( $_ ) foreach ( @dir_tree_include );
6179
        $search->filter_out_re( $_ ) foreach ( @dir_tree_exclude );
6179
        $search->filter_out_re( $_ ) foreach ( @dir_tree_exclude );
-
 
6180
        $search->filter_out_re( '/\.svn/' );
6180
        @elements = $search->search ( $dir_tree );
6181
        @elements = $search->search ( $dir_tree );
6181
        $strip_base = length( $dir_tree ) if ( $strip_base );
6182
        $strip_base = length( $dir_tree ) if ( $strip_base );
6182
    }
6183
    }
6183
 
6184
 
6184
#.. Files
6185
#.. Files