Gallery2: More UTF-8

diff --git a/gal2/UCW/Gallery.pm b/gal2/UCW/Gallery.pm
index 86ebff8a7829897ae1b93aa478f794eb4e6c6f94..9e2571aa3a03abdd27cec2ca174c6a51783df6aa 100644 (file)
--- a/gal2/UCW/Gallery.pm
+++ b/gal2/UCW/Gallery.pm
@@ -101,7 +101,7 @@ sub require_thumbnails($$$) {
 
 sub write_list($$$) {
        my ($self, $file, $images) = @_;
-       open my $fh, '>', "$file.new" or die "Cannot create $file.new: $!\n";
+       open my $fh, '>:utf8', "$file.new" or die "Cannot create $file.new: $!\n";
        for my $i (@$images) {
                print $fh join("\t",
                        $i->{file},