Subversion Repositories DevTools

Rev

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

Rev 1328 Rev 1341
Line 526... Line 526...
526 
# Description     : Determine Subversion Info for a specified target
 526 
# Description     : Determine Subversion Info for a specified target
527 
#
 527 
#
528 
# Inputs          : $self               - Instance Data
 528 
# Inputs          : $self               - Instance Data
529 
#                   $url                - Path or URL to get Info on
 529 
#                   $url                - Path or URL to get Info on
530 
#                   $tag                - Name of tag within $self to store data
 530 
#                   $tag                - Name of tag within $self to store data
- 
 
 531 
#                                         Currently InfoWs and InfoRepo
531 
#
 532 
#
532 
# Returns         : Non Zero if errors detected
 533 
# Returns         : Non Zero if errors detected
533 
#
 534 
#
534 
sub SvnInfo
 535 
sub SvnInfo
535 
{
 536 
{
Line 990... Line 991...
990 
#
 991 
#
991 
sub SvnUserCmd
 992 
sub SvnUserCmd
992 
{
 993 
{
993 
    #
 994 
    #
994 
    #   Extract arguments and options
 995 
    #   Extract arguments and options
995 
    #   If last argument is a hesh, then its a hash of options
 996 
    #   If last argument is a hash, then its a hash of options
996 
    #
 997 
    #
997 
    my $opt;
 998 
    my $opt;
998 
    $opt = pop @_
 999 
    $opt = pop @_
999 
        if (@_ > 0 and UNIVERSAL::isa($_[-1],'HASH'));
 1000 
        if (@_ > 0 and UNIVERSAL::isa($_[-1],'HASH'));
1000 
 
 1001