Subversion Repositories DevTools

Rev

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

Rev 4446 Rev 4519
Line 1536... Line 1536...
1536 
 
 1536 
 
1537 
    Verbose2 ("SvnLocatePackageRoot: $reporoot, $url" );
 1537 
    Verbose2 ("SvnLocatePackageRoot: $reporoot, $url" );
1538 
 
 1538 
 
1539 
    #
 1539 
    #
1540 
    #   Remove anything after a ttb ( truck, tags, branch ) element
 1540 
    #   Remove anything after a ttb ( truck, tags, branch ) element
1541 
    #       This will be the root of the package within the repo
 1541 
    #   This will be the root of the package within the repo
1542 
    #   Calc the deveopment Branch based on path after the ttb
 - 
 
1543 
    #
 1542 
    #
1544 
    if (  $url =~ m~(.+)/((tags|branches|trunk)(/|$).*)~ )
 1543 
    if (  $url =~ m~(.+)/((tags|branches|trunk)(/|$).*)~ )
1545 
    {
 1544 
    {
1546 
        $url = $1;
 1545 
        $url = $1;
1547 
        $self->{WSTYPE} = $3;
 1546 
        $self->{WSTYPE} = $3;
1548 
        if ( $3 eq 'trunk' ) {
 1547 
        if ( $3 eq 'trunk' ) {
1549 
            $devBranch = $3;
 1548 
            $devBranch = $3;
1550 
        } elsif ( $3 eq 'branches' ) {
 1549 
        } elsif ( $3 eq 'branches' ) {
1551 
            my @bits = split('/', $2);
 1550 
            my @bits = split('/', $2);
1552 
            $devBranch = $2;
 - 
 
1553 
            Warning("Branch name with multiple subdirs is NOT recommended")
 - 
 
1554 
                if ( ($devBranch =~ tr~/~/~) > 1 );
 1551 
            $devBranch = join('/', @bits[0 .. 1]);
1555 
        }
 1552 
        }
1556 
    }
 1553 
    }
1557 
    else
 1554 
    else
1558 
    {
 1555 
    {
1559 
        #
 1556 
        #