From: Martin Mares <mj@ucw.cz>
Date: Thu, 27 Dec 2012 19:41:07 +0000 (+0100)
Subject: Gallery2: More UTF-8
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=8952814ce3cd1fe131ce61dab82517bdba746883;p=gallery.git

Gallery2: More UTF-8
---

diff --git a/gal2/UCW/Gallery.pm b/gal2/UCW/Gallery.pm
index 86ebff8..9e2571a 100644
--- 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},