Show
Ignore:
Timestamp:
08/07/08 18:22:08 (6 years ago)
Author:
mattn
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

    r13005 r17206  
    128128    if ($params) { 
    129129        foreach my $key ( keys %$params ) { 
    130             if ( utf8::is_utf8( $params->{$key} ) ) { 
    131                 $params->{$key} = utf8::encode( $params->{$key} ); 
    132             } 
     130            utf8::encode( $params->{$key} ) if utf8::is_utf8 $params->{$key}; 
    133131        } 
    134132        $uri->query_form(%$params);