Changeset 2027

Show
Ignore:
Timestamp:
10/11/06 00:58:14
Author:
miyagawa
Message:

Encode is now a dependency

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • WebService-Bloglines/trunk/Makefile.PL

    r1794 r2027  
    55    'VERSION_FROM' => 'lib/WebService/Bloglines.pm', # finds $VERSION 
    66    'PREREQ_PM' => { 
     7        Encode => 2.10, 
    78        Test::More => 0.32, 
    89        LWP => 0, 
  • WebService-Bloglines/trunk/lib/WebService/Bloglines.pm

    r1794 r2027  
    2020} 
    2121 
    22 sub username    { shift_var('username', @_) } 
     22sub username    { shift->_var('username', @_) } 
    2323sub password    { shift->_var('password', @_) } 
    2424sub use_liberal { shift->_var('use_liberal', @_) } 
  • WebService-Bloglines/trunk/lib/WebService/Bloglines/Entries.pm

    r1794 r2027  
    1818    # okay, Bloglines has sometimes include \xEF in their feeds and 
    1919    # that can't be decoded as UTF-8. Trying to fix it by roundtrips 
    20     $xml = Encode::decode('utf-8', $xml); 
    21     $xml = Encode::encode('utf-8', $xml); 
     20    $xml = Encode::decode_utf8($xml); 
     21    $xml = Encode::encode_utf8($xml); 
    2222 
    2323    my $parser; 
  • WebService-Bloglines/trunk/lib/WebService/Bloglines/Subscriptions.pm

    r1516 r2027  
    66use strict; 
    77use HTML::Entities; 
    8  
    9 use vars qw($HaveEncode); 
    10 BEGIN { 
    11     eval { require Encode; $HaveEncode = 1 }; 
    12 
     8use Encode; 
    139 
    1410sub new { 
     
    5753    while ($attrline =~ s/\s*(\w+)="([^\"]*)"//) { 
    5854        my $value = HTML::Entities::decode($2); 
    59         $attr{$1} = $HaveEncode ? Encode::decode("utf-8", $value) : $value
     55        $attr{$1} = Encode::decode_utf8($value)
    6056    } 
    6157    return \%attr;