Subversion Repositories DevTools

Rev

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

Rev 1399 Rev 1422
Line 817... Line 817...
817 
# Description     : Test a Workspace for modified files
 817 
# Description     : Test a Workspace for modified files
818 
#                   Allow some files to be modified
 818 
#                   Allow some files to be modified
819 
#
 819 
#
820 
# Inputs          : $self           - Instance data
 820 
# Inputs          : $self           - Instance data
821 
#                   A hash of named arguments
 821 
#                   A hash of named arguments
822 
#                       path        - Path to local workspace
 822 
#                       path            - Path to local workspace
- 
 
 823 
#                       modifiedRoot    - Alternate base for files
823 
#                       modified    - Files that are allowed to be modified
 824 
#                       modified        - Files that are allowed to be modified
824 
#                                     Relative to the 'path'
 825 
#                                         Relative to the 'path' or 'modifiedRoot'
825 
#                                     May be a single file or an array of files
 826 
#                                         May be a single file or an array of files
826 
#                       allowLocalMods - Only warn about local mods
 827 
#                       allowLocalMods  - Only warn about local mods
827 
#                       cmd         - Command name for error reporting
 828 
#                       cmd             - Command name for error reporting
828 
#
 829 
#
829 
# Returns         :
 830 
# Returns         :
830 
#
 831 
#
831 
sub SvnWsModified
 832 
sub SvnWsModified
832 
{
 833 
{
Line 840... Line 841...
840 
    #
 841 
    #
841 
    #   Validate the path
 842 
    #   Validate the path
842 
    #
 843 
    #
843 
    SvnValidateWs ($self, $cmd);
 844 
    SvnValidateWs ($self, $cmd);
844 
    my $path = $self->{WS};
 845 
    my $path = $self->{WS};
- 
 
 846 
    my $modifiedRoot = $opt{'modifiedRoot'} || $path;
845 
    my $path_length = length ($path);
 847 
    my $path_length = length ($modifiedRoot);
846 
    Verbose2 ("Test Workspace for Modifications: $path");
 848 
    Verbose2 ("Test Workspace for Modifications: $path");
847 
 
 849 
 
848 
    #
 850 
    #
849 
    #   Ask subversion if there are any files to be updated
 851 
    #   Ask subversion if there are any files to be updated
850 
    #
 852 
    #