Changeset 51 in bookmarks for trunk


Ignore:
Timestamp:
06/06/13 21:47:50 (11 years ago)
Author:
peter
Message:

use Text::CSV::Encoded to write UTF-8 encoded CSV files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/BookmarkApp.pm

    r50 r51  
    207207            } @resources; 
    208208    } elsif ($format eq 'csv') { 
    209         require Text::CSV; 
    210         my $csv = Text::CSV->new; 
     209        require Text::CSV::Encoded; 
     210        my $csv = Text::CSV::Encoded->new({ encoding => 'utf8' }); 
    211211        my $text = qq{id,uri,title,tags,ctime,mtime\n}; 
    212212        for my $bookmark (@resources) { 
Note: See TracChangeset for help on using the changeset viewer.