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

Timestamp:

06/01/08 20:32:38 (6 months ago)

Author:

daisuke

Message:

さすがにperl -cはとおらせるべきだろう

Files:

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

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

@@ -133 +133 @@
                 $params->{$key} = utf8::encode( $params->{$key} );
             }
+        }
         $uri->query_form( %$params );
     }
@@ -141 +142 @@
 sub get {
     my $self = shift;
+    my ($url, %extra);
 
     if (ref $_[0] eq 'HASH') {