Subversion Repositories DevTools

Rev

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

Rev 1033 Rev 1035
Line 415... Line 415...
415 
    my @found;
 415 
    my @found;
416 
    my @scanned;
 416 
    my @scanned;
417 
    Debug ("Locate file: $file");
 417 
    Debug ("Locate file: $file");
418 
 
 418 
 
419 
    #
 419 
    #
- 
 
 420 
    #   Clean up file path
- 
 
 421 
    #   Need to have '/' for utility funnctions to work correctly
- 
 
 422 
    #
- 
 
 423 
    $file =~ tr~\\~/~s;
- 
 
 424 
 
- 
 
 425 
    #
420 
    #   Read in package data from build files
 426 
    #   Read in package data from build files
421 
    #   Determine list of package directories
 427 
    #   Determine list of package directories
422 
    #   Determine list of platform parts
 428 
    #   Determine list of platform parts
423 
    #
 429 
    #
424 
    unless ( @plat_parts )
 430 
    unless ( @plat_parts )
Line 449... Line 455...
449 
                            push @locate_dir_list, $dir if ( -d $dir);
 455 
                            push @locate_dir_list, $dir if ( -d $dir);
450 
                        }
 456 
                        }
451 
                    }
 457 
                    }
452 
                }
 458 
                }
453 
            }
 459 
            }
- 
 
 460 
 
- 
 
 461 
            #
- 
 
 462 
            #   Add the base of the package too
- 
 
 463 
            #   Allows the user to specify the path from the package base
- 
 
 464 
            #
- 
 
 465 
            push @locate_dir_list, $pkg;
454 
        }
 466 
        }
455 
        Verbose2 ("Scan Files in:", @locate_dir_list);
 467 
        Verbose2 ("Scan Files in:", @locate_dir_list);
456 
    }
 468 
    }
457 
 
 469 
 
458 
    #
 470 
    #