Subversion Repositories DevTools

Rev

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

Rev 341 Rev 351
Line 738... Line 738...
738
    #   Examine the list of modified files
738
    #   Examine the list of modified files
739
    #
739
    #
740
    if ( @{$self->{RESULT_LIST}} )
740
    if ( @{$self->{RESULT_LIST}} )
741
    {
741
    {
742
        #
742
        #
743
        #   Create a hash of file that are allowed to change
743
        #   Create a hash of files that are allowed to change
744
        #   These are files relative to the base of the view
744
        #   These are files relative to the base of the view
745
        #
745
        #
746
        #   The svn command has the 'path' prepended, so this
746
        #   The svn command has the 'path' prepended, so this
747
        #   will be removed as we process the commands
747
        #   will be removed as we process the commands
748
        #
748
        #
Line 775... Line 775...
775
        #
775
        #
776
        foreach my $entry ( @{$self->{RESULT_LIST}} )
776
        foreach my $entry ( @{$self->{RESULT_LIST}} )
777
        {
777
        {
778
            #
778
            #
779
            #   Extract filename from line
779
            #   Extract filename from line
780
            #       First 7 chars are status
780
            #       First 8 chars are status
781
            #       Remove WS path too
781
            #       Remove WS path too
782
            #
782
            #
783
            my $file = substr ( $entry, 7 + $path_length );
783
            my $file = substr ( $entry, 8 + $path_length );
784
            next if ( $allowed{$file} );
784
            next if ( $allowed{$file} );
785
 
785
 
786
            #
786
            #
787
            #   Examine the first char and rule out funny things
787
            #   Examine the first char and rule out funny things
788
            #
788
            #