Changeset 30006

Timestamp:

02/13/09 17:30:48 (4 years ago)

Author:

likk

Message:

Net::Timelog : UTF8フラグ有/無に対して適切にencodeしてからPOST

Files:

• lang/perl/Net-Timelog/trunk/lib/Net/Timelog.pm (modified) (1 diff)

lang/perl/Net-Timelog/trunk/lib/Net/Timelog.pm

@@ -111 +111 @@
 
 sub encodeURIComponent {
-  my $str = encode('utf-8', shift);
+  my $str = shift;
+  $str = utf8::is_utf8($str)?
+         Encode::encode_utf8($str):
+         $str;
   $str =~ s/([^0-9A-Za-z!'()*\-._~])/sprintf("%%%02X", ord($1))/eg;
   return $str;