fix readdir_decoded()

diff --git a/botm_common.pm b/botm_common.pm
index 200d14c7ffc5663ceb75852f802c664e78e6c713..aaa0bda94670705a6ed9d3812fdcc26cba1c6479 100644 (file)
--- 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 {