X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=clones.pl;h=5fb37f07c0090ff8b27888c441cada011ea4e06f;hb=d27e291db6a90f0569468f8416eaafcb81a148e9;hp=d661eb91f1c214ccabd184b88615ab1cd9e97f09;hpb=0a342794e65a5975f4574d143a600cad8eaa9c7d;p=perl%2Fscripts%2Fxchat.git

diff --git a/clones.pl b/clones.pl
index d661eb9..5fb37f0 100755
--- a/clones.pl
+++ b/clones.pl
@@ -55,7 +55,7 @@ sub clone_list_str {
 sub host {
  my $userhost = lc $_[0];
 
- return $userhost =~ /@([^@]+)$/ ? $1 : $userhost;
+ return $userhost =~ /@([^@]+)$/ ? strip_code($1) : $userhost;
 }
 
 sub add {