Просмотр исходного кода

strip trailing /'s off of URLs so we don't count http://name/ and http://name as
2 separate URLs

sbingner 25 лет назад
Родитель
Сommit
947ce83f87
1 измененных файлов с 3 добавлено и 1 удалено
  1. 3 1
      modules/Pisg/Common.pm

+ 3 - 1
modules/Pisg/Common.pm

@@ -110,7 +110,9 @@ sub match_url
     my ($str) = @_;
 
     if ($str =~ /(http|https|ftp|telnet|news)(:\/\/[-a-zA-Z0-9_]+\.[-a-zA-Z0-9.,_~=:;&@%?#\/+]+)/) {
-        return "$1$2";
+        my $url = "$1$2";
+        $url =~ s/\/$//;
+        return $url;
     }
     return undef;
 }