From: b <rowerynaksiezycu@gmail.com>
Date: Sat, 9 Mar 2024 20:18:12 +0000 (+0000)
Subject: fix readdir_decoded()
X-Git-Tag: v1.1.5
X-Git-Url: http://bicyclesonthemoon.info/git-projects/?a=commitdiff_plain;h=d14fbf1044eb55f7c2f4d77f3117623a5dc3a92d;p=botm%2Fcommon-perl

fix readdir_decoded()
---

diff --git a/botm_common.pm b/botm_common.pm
index 200d14c..aaa0bda 100644
--- a/botm_common.pm
+++ b/botm_common.pm
@@ -27,7 +27,7 @@ use File::Copy;
 
 use Exporter;
 
-our $VERSION     = '1.1.4';
+our $VERSION     = '1.1.5';
 our @ISA         = qw(Exporter);
 our @EXPORT      = ();
 our @EXPORT_OK   = (
@@ -179,7 +179,11 @@ sub opendir_encoded {
 }
 
 sub readdir_decoded {
-	return decode('locale_fs', readdir $_[0]);
+	my @fl =  readdir $_[0];
+	foreach my $fn (@fl) {
+		$fn = decode('locale_fs', $fn);
+	}
+	return @fl;
 }
 
 sub env_pwd_decoded {