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
    }