Subversion Repositories DevTools

Rev

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

Rev 227 Rev 241
Line 586... Line 586...
586 
#
 586 
#
587 
#------------------------------------------------------------------------------
 587 
#------------------------------------------------------------------------------
588 
{
 588 
{
589 
    Verbose2("pkgFind2:");
 589 
    Verbose2("pkgFind2:");
590 
 
 590 
 
591 
    my($item)= "$File::Find::name";                     # Full source path
 591 
    my $item = "$File::Find::name";                     # Full source path
592 
 
 - 
 
593 
    my ($dest_path) = $item;
 - 
 
594 
    $dest_path =~ s/^$FF_SRC_DIR/$FF_DST_DIR/;          # Full destination path
 592 
    my $dest_path = $FF_DST_DIR . substr ( $item, length ($FF_SRC_DIR) ); # Full destination path
595 
 
 593 
 
596 
    Verbose2 ("---- Src = [$item]");
 594 
    Verbose2 ("---- Src = [$item]");
597 
    Verbose2 ("---- Dst = [$dest_path]");
 595 
    Verbose2 ("---- Dst = [$dest_path]");
598 
 
 - 
 
599 
    if ( -d $item )
 596 
    if ( -d $item )
600 
    {
 597 
    {
601 
        #
 598 
        #
602 
        #   Create a directory
 599 
        #   Create a directory
603 
        #
 600 
        #
Line 605... Line 602...
605 
 
 602 
 
606 
        #
 603 
        #
607 
        #   Flag the subdir as being processed
 604 
        #   Flag the subdir as being processed
608 
        #   Prevent multiple copy operations (and warnings)
 605 
        #   Prevent multiple copy operations (and warnings)
609 
        #
 606 
        #
610 
        (my $subdir = $item) =~ s~^$PKG_ROOT/~~;
 607 
        my $subdir = substr ( $item, 1 + length ($PKG_ROOT) );
611 
        $dirs_processed{$subdir} = 1;
 608 
        $dirs_processed{$subdir} = 1;
612 
 
 609 
 
613 
    }
 610 
    }
614 
    else
 611 
    else
615 
    {
 612 
    {