Subversion Repositories DevTools

Rev

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

Rev 385 Rev 399
Line 658... Line 658...
658 
    #   if its present. This will provide a ref that we can use on any site
 658 
    #   if its present. This will provide a ref that we can use on any site
659 
    #
 659 
    #
660 
    #   Note: %SVN_URLS values will have a trailing '/'
 660 
    #   Note: %SVN_URLS values will have a trailing '/'
661 
    #
 661 
    #
662 
    #   Sort in reverse order to ensure that the default URL is found last
 662 
    #   Sort in reverse order to ensure that the default URL is found last
- 
 
 663 
    #   Do case-insensitive compare. Cut the system some slack.
663 
    #
 664 
    #
664 
    foreach my $tag ( @SVN_URLS_LIST )
 665 
    foreach my $tag ( @SVN_URLS_LIST )
665 
    {
 666 
    {
666 
        if ( $target =~ s~^\Q$SVN_URLS{$tag}\E~$tag/~ )
 667 
        if ( $target =~ s~^\Q$SVN_URLS{$tag}\E~$tag/~i )
667 
        {
 668 
        {
668 
            $target =~ s~^/~~;
 669 
            $target =~ s~^/~~;
669 
            last;
 670 
            last;
670 
        }
 671 
        }
671 
    }
 672 
    }