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

Timestamp:

04/27/08 16:00:05 (7 months ago)

Author:

yusukebe

Message:

余計なものを書いていた thanks http://d.hatena.ne.jp/achemer/20080426/1209186690

Files:

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

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

@@ -131 +131 @@
 
     if($url){
-        $url =~ s!^/!! if $url =~ m!^/!;
+        $url =~ s!^/!!;
         $uri->path( $uri->path . $url);
     }