Subversion Repositories DevTools

Rev

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

Rev 379 Rev 3832
Line 312... Line 312...
312 
            #       Solution. Only use follow under non-windows systems.
 312 
            #       Solution. Only use follow under non-windows systems.
313 
            #                 Works as Windows does not have symlinks (yet).
 313 
            #                 Works as Windows does not have symlinks (yet).
314 
            #
 314 
            #
315 
            my $follow_opt =  ($ENV{GBE_UNIX}  > 0);
 315 
            my $follow_opt =  ($ENV{GBE_UNIX}  > 0);
316
316
317 
            File::Find::find( {wanted => \&find_file_wanted, follow_fast => $follow_opt }, $self->{base_dir} );
 317 
            File::Find::find( {wanted => \&find_file_wanted, follow_fast => $follow_opt, follow_skip => 2 }, $self->{base_dir} );
318 
        }
 318 
        }
319 
        else
 319 
        else
320 
        {
 320 
        {
321 
            local *DIR ;
 321 
            local *DIR ;
322 
            opendir DIR, $self->{base_dir} || die ("Cannot open $self->{base_dir}");
 322 
            opendir DIR, $self->{base_dir} || die ("Cannot open $self->{base_dir}");