Subversion Repositories DevTools

Rev

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

Rev 331 Rev 379
Line 23... Line 23...
23 
#                  $search->filter_out_re ( );
 23 
#                  $search->filter_out_re ( );
24 
#                  $search->base_dir ()
 24 
#                  $search->base_dir ()
25 
#                  $search->has_filter ( );
 25 
#                  $search->has_filter ( );
26 
#                  $search->full_path ( );
 26 
#                  $search->full_path ( );
27 
#                  $search->dirs_only ( );
 27 
#                  $search->dirs_only ( );
- 
 
 28 
#                  $search->dirs_too();             # Dirs have '/' appended
28 
#                  $search->search ( );
 29 
#                  $search->search ( );
29 
#                  $search->results ( );
 30 
#                  $search->results ( );
30 
#
 31 
#
31 
#......................................................................#
 32 
#......................................................................#
32 
 
 33 
 
Line 297... Line 298...
297 
            sub find_file_wanted
 298 
            sub find_file_wanted
298 
            {
 299 
            {
299 
                return if ( !$search_dirs_too && -d $_ );               # skip if current is dir and we are not including dirs
 300 
                return if ( !$search_dirs_too && -d $_ );               # skip if current is dir and we are not including dirs
300 
                return if ( $search_base_dir eq $File::Find::name );    # skip if current is base_dir as we dont include it
 301 
                return if ( $search_base_dir eq $File::Find::name );    # skip if current is base_dir as we dont include it
301 
                my $file = $File::Find::name;
 302 
                my $file = $File::Find::name;
- 
 
 303 
                $file .= '/' if ( -d $_ );
302 
                push @search_list, substr($file, $search_len );
 304 
                push @search_list, substr($file, $search_len );
303 
            }
 305 
            }
304 
 
 306 
 
305 
            #
 307 
            #
306 
            #       Under Unix we need to follow symbolic links, but Perl's
 308 
            #       Under Unix we need to follow symbolic links, but Perl's