Subversion Repositories DevTools

Rev

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

Rev 1031 Rev 1033
Line 430... Line 430...
430 
 
 430 
 
431 
        #
 431 
        #
432 
        #   Create a list of available directories
 432 
        #   Create a list of available directories
433 
        #   Do this once as it may be slow
 433 
        #   Do this once as it may be slow
434 
        #
 434 
        #
- 
 
 435 
        @locate_dir_list  = qw(.);
435 
        foreach my $pkg ( @pkg_paths )
 436 
        foreach my $pkg ( @pkg_paths )
436 
        {
 437 
        {
437 
            foreach my $part ( @plat_parts, '' )
 438 
            foreach my $part ( @plat_parts, '' )
438 
            {
 439 
            {
439 
                foreach my $bit ( 'bin', 'lib', 'etc' )
 440 
                foreach my $bit ( 'bin', 'lib', 'etc' )