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

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 {