WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/LIB/JatsSvn.pm



    #   Examine the list of modified files
    #
    if ( @{$self->{RESULT_LIST}} )
    {
        #
        #   Create a hash of files that are allowed to change
        #   These are files relative to the base of the view
        #
        #   The svn command has the 'path' prepended, so this
        #   will be removed as we process the commands
        #

        #
        foreach my $entry ( @{$self->{RESULT_LIST}} )
        {
            #
            #   Extract filename from line
            #       First 8 chars are status
            #       Remove WS path too
            #
            my $file = substr ( $entry, 8 + $path_length );
            next if ( $allowed{$file} );
 
            #
            #   Examine the first char and rule out funny things
            #

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/LIB/JatsSvn.pm – Rev 341 → 351

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	`#`