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