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
    }