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

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 {