X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=clones.pl;h=12150e80dda752f97de46a4cf8158e5aa14a25e8;hb=125e52ff2903768a9859f17b9e4b2dce157b4ea0;hp=c735c884a45c1ad388c65b06fe388e2ee60f9d52;hpb=b9c3e00cbf52ff5ddb0d79fd66a6877f6feb508d;p=perl%2Fscripts%2Fxchat.git

diff --git a/clones.pl b/clones.pl
index c735c88..12150e8 100755
--- a/clones.pl
+++ b/clones.pl
@@ -45,8 +45,7 @@ sub clone_list_str {
 
 sub host {
  my $userhost = lc $_[0];
- my ($host) = $userhost =~ /@([^@]+)$/;
- return $host || $userhost;
+ return $userhost =~ /@([^@]+)$/ ? $1 : $userhost;
 }
 
 sub add {