From: Vincent Pit <vince@profvince.com>
Date: Sun, 30 Nov 2008 13:56:56 +0000 (+0100)
Subject: HGREP should match regardless of the case
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=adb8d6067cfe7d29f2d1bd57e90a21a07c25c2e8;p=perl%2Fscripts%2Fxchat.git

HGREP should match regardless of the case
---

diff --git a/tools.pl b/tools.pl
index f162dad..bf6af18 100755
--- a/tools.pl
+++ b/tools.pl
@@ -118,7 +118,7 @@ hook_command 'WIDE', sub {
 hook_command 'HGREP', sub {
  my $txt = $_[1][1];
  return EAT_ALL unless defined $txt;
- $txt = qr/$txt/;
+ $txt = qr/$txt/i;
  my @matches;
  for (get_list 'users') {
   my $host = $_->{host};