RT#103126: add a trailing '/' correctly.

cosimo · Mar 26, 2015 · 97c90e0 · 97c90e0
1 parent e26055d
commit 97c90e0
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/lib/HTTP/DAV/ResourceList.pm b/lib/HTTP/DAV/ResourceList.pm
@@ -158,20 +158,19 @@ sub get_locktokens {
          my $u = $url->canonical();
 
          # Add a trailing slash
-         s{/*$}{/} for $r, $u;
-
-         if ($u =~ /\Q$r/ ) {
+         $r =~ s{/*$}{/};
+         $u =~ s{/*$}{/};
 
+         if ($u =~ m{\Q$r}) {
             my @locks = $resource->get_locks(-owned=>$owned);
-            #my $uri = $resource_uri->path();
             foreach my $lock (@locks) {
                my @lock_tokens = @{$lock->get_locktokens()};
                push(@{$tokens{$resource_uri}}, @lock_tokens);
             }
-
          }
 
       } # foreach uri
+
    } # foreach resource
 
    return \%tokens;