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