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
    #