Changeset 22897 for lang/perl/Moxy

Timestamp:

11/07/08 10:55:27 (2 months ago)

Author:

tokuhirom

Message:

fixed mojibake...

Files:

• lang/perl/Moxy/trunk/lib/Moxy/Plugin/UserAgentSwitcher.pm (modified) (2 diffs)

lang/perl/Moxy/trunk/lib/Moxy/Plugin/UserAgentSwitcher.pm

@@ -7 +7 @@
 use URI::Escape;
 use CGI;
+use Encode ();
 
 sub request_filter_process_agent :Hook {
@@ -61 +62 @@
 sub ua_list {
     my ($self, $context) = @_;
-    return $self->{__ua_list} ||= YAML::LoadFile( $self->assets_path($context)->file('useragent.yaml') );
+    return $self->{__ua_list} ||= do {
+        my $yaml = Encode::decode_utf8 $self->assets_path($context)->file('useragent.yaml')->slurp;
+        YAML::Load( $yaml );
+    };
 }