Changeset 7231

Show
Ignore:
Timestamp:
02/28/08 13:32:04 (5 years ago)
Author:
yappo
Message:

lang/perl/Plusen: utf8 flag 周りをやつけで対処した

Location:
lang/perl/Plusen/trunk/lib/Plusen/Plugin/Device
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Plusen/trunk/lib/Plusen/Plugin/Device/MozRepl.pm

    r7230 r7231  
    115115 
    116116#    $str =~ s/\n//g; 
    117     $str = uri_escape_utf8(decode('utf-8', $str)); 
     117    $str = uri_escape_utf8(utf8::is_utf8($str) ? $str : decode('utf-8', $str)); 
    118118    $str =~ s/\'/\\\'/g; 
    119119    qq{decodeURIComponent('$str')}; 

  • lang/perl/Plusen/trunk/lib/Plusen/Plugin/Device/Term.pm

    r6705 r7231  
    44use base 'Plusen::Plugin'; 
    55 
     6use Encode; 
    67use Term::Size (); 
    78use Term::Screen; 
    … …  
    7273    my($screen_x, $screen_y) = Term::Size::chars; 
    7374    my $x = int(($screen_x - length($msg)) / 2); 
    74     $self->screen->at($y, $x)->puts($msg); 
     75    $self->screen->at($y, $x)->puts(utf8::is_utf8($msg) ? encode('utf8', $msg) : $msg); 
    7576} 
    7677 

  • lang/perl/Plusen/trunk/lib/Plusen/Plugin/Device/VFD.pm

    r6705 r7231  
    55 
    66use Device::VFD::GP1022; 
    7 use Encode (); 
     7use Encode; 
    88 
    99sub setup : Hook('device.init') { 
    … …  
    1616sub draw_current : Hook('device.screen.current') Hook('device.screen.toppage') { 
    1717    my($self, $c) = @_; 
    18     $self->vfd->message(Encode::decode('utf8', $c->script->get_current_text)); 
     18    $self->vfd->message(utf8::is_utf8($str) ? $str : decode('utf8', $c->script->get_current_text)); 
    1919} 
    2020