From d14fbf1044eb55f7c2f4d77f3117623a5dc3a92d Mon Sep 17 00:00:00 2001 From: b Date: Sat, 9 Mar 2024 20:18:12 +0000 Subject: [PATCH] fix readdir_decoded() --- botm_common.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 { -- 2.30.2