Changeset 51 in bookmarks

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:

• trunk/BookmarkApp.pm (modified) (1 diff)

trunk/BookmarkApp.pm

@@ -207 +207 @@
             } @resources;
     } elsif ($format eq 'csv') {
-        require Text::CSV;
-        my $csv = Text::CSV->new;
+        require Text::CSV::Encoded;
+        my $csv = Text::CSV::Encoded->new({ encoding => 'utf8' });
         my $text = qq{id,uri,title,tags,ctime,mtime\n};
         for my $bookmark (@resources) {