Changeset 2014

Show
Ignore:
Timestamp:
10/09/06 17:15:40
Author:
miyagawa
Message:

Unicode string

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/todo.pl

    r2006 r2014  
    1818use Email::Address; 
    1919use Fcntl qw(:mode); 
     20 
     21no warnings 'once'; 
     22$YAML::Syck::ImplicitUnicode = 1; 
    2023 
    2124our $CONFFILE = "$ENV{HOME}/.hiveminder"; 
     
    209212 
    210213    my $tasks = download_tasks($query); 
    211      
     214 
    212215    for my $t (@$tasks) { 
    213216        printf "%4s ", $locator->encode($t->{id}); 
     
    436439 
    437440    if ( $res->is_success ) { 
    438         return YAML::Syck::Load( Encode::decode_utf8($res->content) )->{fnord}; 
     441        return YAML::Syck::Load($res->content)->{fnord}; 
    439442    } else { 
    440443        die $res->status_line;