From 6a3692681a6b4e342d37f6877fd46e503bcf31c7 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Tue, 19 Nov 2019 22:16:46 +0100
Subject: [PATCH] gal-scan: Assume that local filenames are encoded in UTF-8

---
 bin/gal-scan | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/bin/gal-scan b/bin/gal-scan
index bb74c06..5fe5f7f 100755
--- a/bin/gal-scan
+++ b/bin/gal-scan
@@ -6,6 +6,7 @@ use common::sense;
 
 use UCW::Gallery;
 use UCW::Gallery::Hashes;
+use Encode;
 use File::Spec;
 use Image::EXIF;
 use Getopt::Long;
@@ -46,6 +47,7 @@ if ($update) {
 			opendir D, $in or die "Cannot scan directory $in: $!\n";
 			my @p = ();
 			while (my $e = readdir D) {
+				$e = Encode::decode('utf-8', $e);
 				my $f = File::Spec->canonpath(File::Spec->catfile($in, $e));
 				if ($f =~ m{\.(jpe?g|png)$}i) {
 					push @p, $f;
-- 
2.39.2