Changeset 18306

Timestamp:

08/27/08 16:08:06 (5 years ago)

Author:

yappo

Message:

babieさんが怒るので

Files:

• lang/perl/misc/WassrPod/wassrpod.pl (modified) (1 diff)

lang/perl/misc/WassrPod/wassrpod.pl

@@ -249 +249 @@
         if ($cmd eq '7') {
             $status = encode('utf7', decode('utf8', $args));
-            $self->_update($ua, $status, $source);
+            $self->_update($ua, "$status encoding:utf7", $source);
         } elsif ($cmd eq '932') {
             $status = encode('cp932', decode('utf8', $args));
-            $self->_update($ua, $status, $source);
+            $self->_update($ua, "$status encoding:cp932", $source);
         }
     } else {