Index: lang/perl/tiarra/trunk/module/Auto/FetchTitle.pm
===================================================================
--- lang/perl/tiarra/trunk/module/Auto/FetchTitle.pm (revision 36777)
+++ lang/perl/tiarra/trunk/module/Auto/FetchTitle.pm (revision 36778)
@@ -1836,5 +1836,5 @@
   }
   $path =~ s/[\?#].*//;
-  $path =~ s{[^/]$}{};
+  $path =~ s{/$}{};
   ($scheme, $domain, $path);
 }