Subversion Repositories DevTools

Rev

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

Rev 235 Rev 241
Line 514... Line 514...
514 
 
 514 
 
515 
    #
 515 
    #
516 
    #   Calculate the target directory name
 516 
    #   Calculate the target directory name
517 
    #
 517 
    #
518 
    my $target = $item;
 518 
    my $target = $item;
519 
    $target =~ s/^$SRC_ROOT/$DPKG_DIR/;
 519 
    $target = $DPKG_DIR . substr ( $item, length ($SRC_ROOT) );
520 
 
 520 
 
521 
    if ( -d $item )
 521 
    if ( -d $item )
522 
    {
 522 
    {
523 
        #
 523 
        #
524 
        #   Ignore the top level directory
 524 
        #   Ignore the top level directory
Line 695... Line 695...
695 
 
 695 
 
696 
    #
 696 
    #
697 
    #   Calculate the target directory name
 697 
    #   Calculate the target directory name
698 
    #
 698 
    #
699 
    my $target = $File::Find::dir;
 699 
    my $target = $File::Find::dir;
700 
    $target =~ s~^$SRC_ROOT/*~~;
 700 
    $target = substr ( $target, 1+length ($SRC_ROOT) );
701 
 
 701 
 
702 
    if ( -d $_ ) {
 702 
    if ( -d $_ ) {
703 
        $test_dir_count++;
 703 
        $test_dir_count++;
704 
    } else {
 704 
    } else {
705 
        $test_file_count++;
 705 
        $test_file_count++;
706 
        unless ( $target )
 706 
        unless ( $target )
707 
        {
 707 
        {
- 
 
 708 
            #
- 
 
 709 
            #   Locate files in the package root directory that
- 
 
 710 
            #   are not expected to be there.
- 
 
 711 
            #
708 
            next if ( $_ eq 'descpkg' );
 712 
            next if ( $_ eq 'descpkg' );
709 
            next if ( $_ eq 'incpkg' );
 713 
            next if ( $_ eq 'incpkg' );
710 
            push @test_root_file, $_;
 714 
            push @test_root_file, $_;
711 
        }
 715 
        }
712 
    }
 716 
    }