Make sure local_context() runs the code only when the context was found

[perl/scripts/xchat.git] / clones.pl

diff --git a/clones.pl b/clones.pl
index d661eb91f1c214ccabd184b88615ab1cd9e97f09..5fb37f07c0090ff8b27888c441cada011ea4e06f 100755 (executable)
--- 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 {