Changeset 13759 for lang/perl/Ulgori

Timestamp:

06/13/08 01:00:52 (5 years ago)

Author:

tokuhirom

Message:

irc channel name is not a case insensitive :)

Files:

• lang/perl/Ulgori/trunk/lib/Ulgori/Model/Log.pm (modified) (1 diff)

lang/perl/Ulgori/trunk/lib/Ulgori/Model/Log.pm

@@ -59 +59 @@
     my @lines = reverse map { decode $encoding, $_ } <$fh>;
     if ( defined $args->{keyword} ) {
-        @lines = grep { $_ =~ $args->{keyword} } @lines;
+        @lines = grep { uc($_) =~ uc($args->{keyword}) } @lines;
     }
     close $fh;