Changeset 905 for lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Util.pm

Timestamp:

10/30/07 17:34:38 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: ImplicitUnicode?++

Files:

• lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Util.pm (modified) (2 diffs)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Util.pm

@@ -54 +54 @@
         croak "msg shuld be flagged utf8";
     }
+    if ($who && !Encode::is_utf8($who)) {
+        croak "who shuld be flagged utf8 : $who";
+    }
     unless (Encode::is_utf8($channel)) {
         croak "channel shuld be flagged utf8";
@@ -91 +94 @@
     # update keyword buffer.
     if ($row->{class} eq 'notice' || $row->{class} eq 'public') {
-        # FIXME: shoud use local $YAML::Syck::ImplicitUnicode = 1;
-        if (any { index($row->{msg}, $_) != -1 } map { decode('utf8', $_) } @{$config->{global}->{keywords} || []}) {
+        if (any { index($row->{msg}, $_) != -1 } @{$config->{global}->{keywords} || []}) {
             push @{$heap->{keyword_buffer}}, $row;
             if ( @{$heap->{keyword_buffer}} > $config->{httpd}->{lines}) {