X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=blobdiff_plain;f=hl.pl;fp=hl.pl;h=e4692ef775a2ab2ddaf887bf9fc3e640cd86fc22;hp=0a9fa11984c0ea16ce1e882daef191c1b7463de0;hb=0a342794e65a5975f4574d143a600cad8eaa9c7d;hpb=edef44980a97323b66add1052bc737fe1e11975f

diff --git a/hl.pl b/hl.pl
index 0a9fa11..e4692ef 100755
--- a/hl.pl
+++ b/hl.pl
@@ -8,7 +8,7 @@ use Xchat qw<:all>;
 use lib get_info 'xchatdir';
 use Xchat::XPI;
 use Xchat::XPI::Events qw<filter>;
-use Xchat::XPI::Utils  qw<gui>;
+use Xchat::XPI::Utils  qw<irc_lc gui>;
 
 our $VERSION = '0.04';
 
@@ -52,7 +52,7 @@ for (keys %hl) {
 }
 
 filter 'Channel Action' => sub {
- my $chan = lc get_info 'channel';
+ my $chan = irc_lc get_info 'channel';
  if ($hl{$chan} and $_[1] =~ /$hl{$chan}/) {
   gui 'highlight';
   1;
@@ -73,7 +73,7 @@ for (keys %skip) {
 }
 
 filter 'Channel Action Hilight' => sub {
- my $chan = lc get_info 'channel';
+ my $chan = irc_lc get_info 'channel';
  if ($skip{$chan} and $_[1] =~ /$skip{$chan}/) {
   gui 'clear';
   1;