Changeset 10331

Timestamp:

04/24/08 20:16:48 (6 months ago)

Author:

yusukebe

Message:

bug fix

Files:

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

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

@@ -129 +129 @@
 
     my $uri = URI->new($self->base_url);
-
-    $url =~ s!^/!! if $url =~ m!^/!;
+    if($url){
+        $url =~ s!^/!! if $url =~ m!^/!;
+    }
     $uri->path( $uri->path . $url) if $url;