Changeset 17206 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

Timestamp:

08/07/08 18:22:08 (5 years ago)

Author:

mattn

Message:

utf8::encodeは戻り値を持たないのでパラメータが消えてしまう問題を修正

Files:

• lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm (modified) (1 diff)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

@@ -128 +128 @@
     if ($params) {
         foreach my $key ( keys %$params ) {
-            if ( utf8::is_utf8( $params->{$key} ) ) {
-                $params->{$key} = utf8::encode( $params->{$key} );
-            }
+            utf8::encode( $params->{$key} ) if utf8::is_utf8 $params->{$key};
         }
         $uri->query_form(%$params);