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

Timestamp:

04/24/08 21:03:38 (7 months ago)

Author:

yusukebe

Message:

get のパラメータの値がutf8 flaggedだった場合、それを落とす

Files:

• lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm (modified) (3 diffs)

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

@@ -8 +8 @@
 use Data::Dumper ();
 use Digest::MD5 ();
+use URI::Escape;
 use WebService::Simple::Response;
 use UNIVERSAL::require;
@@ -131 +132 @@
     if($url){
         $url =~ s!^/!! if $url =~ m!^/!;
-    }
-    $uri->path( $uri->path . $url) if $url;
+        $uri->path( $uri->path . $url);
+    }
 
     # The url must be initialized with default parameters.
 
+    map { utf8::encode($extra{$_}) if utf8::is_utf8($extra{$_}) } keys %extra;
+
     $uri->query_form( %{$self->basic_params}, %extra );
 
     my $response;
-
     $response = $self->__cache_get([$uri, @headers]);
     if ($response) {
@@ -164 +166 @@
 
     my $uri = URI->new($self->base_url);
-    $uri->path( $uri->path . $url) if $url;
+    if($url){
+        $url =~ s!^/!! if $url =~ m!^/!;
+        $uri->path( $uri->path . $url);
+    }
 
     # default parameters must come *before* @params, so unshift instead