Strip ANSI sequences from hostnames

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

diff --git a/opers.pl b/opers.pl
index 218b2d2dc8d8c34d85eb7bb3de68729b471179ce..f8d178d59e3d870318c0943976bf487fdc01036b 100755 (executable)
--- a/opers.pl
+++ b/opers.pl
@@ -23,7 +23,7 @@ hook_server '352', sub {
  return EAT_NONE if $opers{$serv}{irc_lc($nick)};
  $opers{$serv}{irc_lc($nick)} = $nick;
 
- my $host = $_[0][4] . '@' . $_[0][5];
+ my $host = $_[0][4] . '@' . strip_code $_[0][5];
  my %chans;
  push @{$chans{$_->{type}}}, $_ for grep $_->{server} eq $serv,
                                      get_list 'channels';