Subversion Repositories DevTools

Rev

Rev 311 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 311 Rev 5848
Line 209... Line 209...
209 
        }
 209 
        }
210 
        my $root_rx = $^O eq 'MacOS' ? qq!^\Q$try\E! : qq!^\Q$try\E/!;
 210 
        my $root_rx = $^O eq 'MacOS' ? qq!^\Q$try\E! : qq!^\Q$try\E/!;
211 
        File::Find::find( sub {
 211 
        File::Find::find( sub {
212 
            my $item = $File::Find::name;
 212 
            my $item = $File::Find::name;
213 
            if(-d) {
 213 
            if(-d) {
214 
                if($item =~ m{/(?:RCS|CVS|SCCS|\.svn)$}) {
 214 
                if($item =~ m{/(?:RCS|CVS|SCCS|\.svn|\.git)$}) {
215 
                    $File::Find::prune = 1;
 215 
                    $File::Find::prune = 1;
216 
                    return;
 216 
                    return;
217 
                }
 217 
                }
218 
                elsif($dirs_visited{$item}) {
 218 
                elsif($dirs_visited{$item}) {
219 
                    warn "Directory '$item' already seen, skipping.\n"
 219 
                    warn "Directory '$item' already seen, skipping.\n"