Changeset 28889

Timestamp:

01/23/09 12:26:37 (4 years ago)

Author:

sugyan

Message:

lang/perl/Net-Twissr: modify example/terminal.pl

Files:

• lang/perl/Net-Twissr/trunk/example/terminal.pl (modified) (2 diffs)

lang/perl/Net-Twissr/trunk/example/terminal.pl

@@ -4 +4 @@
 
 use Config::Pit;
-use Encode;
 use HTTP::Date;
 use Jcode;
@@ -103 +102 @@
         }
         my $time = HTTP::Date::time2iso($_->{time});
-        my $text = encode_utf8($_->{text});
-        my $line = qq/[$time] $_->{user_id} : $text/;
+        my $line = qq/[$time] $_->{user_id} : $_->{text}/;
         # １行分の長さに切る
         $line = (Jcode->new($line)->jfold($cols))[0];