Show
Ignore:
Timestamp:
03/01/08 03:10:20 (6 years ago)
Author:
woremacx
Message:

lang/perl/WebService-Nowa: set JSON::Syck::ImplicitUnicode? locally before call Load

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/WebService-Nowa/trunk/lib/WebService/Nowa.pm

    r7314 r7315  
    165165    $self->{mech}->get($uri->as_string); 
    166166    my $content = Encode::decode('utf-8', $self->{mech}->content); 
     167    local $JSON::Syck::ImplicitUnicode = 1; 
    167168    my $res = JSON::Syck::Load($content); 
    168169    croak "fetch recent failed." if ref($res) eq 'HASH' and $res->{result} eq 'fail'; 
     
    188189    $self->{mech}->get($uri->as_string); 
    189190    my $content = Encode::decode('utf-8', $self->{mech}->content); 
     191    local $JSON::Syck::ImplicitUnicode = 1; 
    190192    my $res = JSON::Syck::Load($content); 
    191193    croak "fetch recent failed." if ref($res) eq 'HASH' and $res->{result} eq 'fail';