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

Timestamp:

03/31/08 12:09:27 (8 months ago)

Author:

yusukebe

Message:

 

Files:

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

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

@@ -36 +36 @@
     map {push(@params, "$_=" . URI::Escape::uri_escape_utf8($self->{param}->{$_}))}
         keys %{$self->{param}};
-    map {push(@params, "$_=" . URI::Escape::uri_escape_utf8($request_param->{$_}))} 
+    map {push(@params, "$_=" . URI::Escape::uri_escape_utf8($request_param->{$_}))}
         keys %$request_param;
     my $str = join("&",@params);