Changeset 10315

Timestamp:

04/24/08 16:49:35 (4 months ago)

Author:

yusukebe

Message:

追加するURLの先頭に / が含まれていてもOKにした

Location:

lang/perl/WebService-Simple/trunk

Files:

• example/lingr.pl (modified) (1 diff)
• lib/WebService/Simple.pm (modified) (1 diff)

lang/perl/WebService-Simple/trunk/example/lingr.pl

@@ -5 +5 @@
 my $api_key = $ARGV[0] || "your_api_key";
 my $room_id = "hO4SmQWTdJ4";    # http://www.lingr.com/room/hO4SmQWTdJ4
-my $nickname = "lingr.pl";
+my $nickname = "WebService::Simple";
 my $message  = "Hello, World.";
 

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

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