X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FCommon.pm;h=d6260251eb0040b8bb436660277ae52bec79833d;hb=42ca4b6790baf76f507cc3675f4a171223cfde4c;hp=733eb74d8c6e1f8ba2ad1dff3b7602920b9e6a04;hpb=58c69eb0125b6e7c8ac6e72b5ea937f232c183be;p=kivitendo-erp.git diff --git a/SL/Common.pm b/SL/Common.pm index 733eb74d8..d6260251e 100644 --- a/SL/Common.pm +++ b/SL/Common.pm @@ -21,6 +21,7 @@ use File::Slurp; use File::Spec; use List::MoreUtils qw(apply); use POSIX (); +use Encode qw(decode); use SL::DBUtils; @@ -355,7 +356,7 @@ sub webdav_folder { my $base_path = $ENV{'SCRIPT_NAME'}; $base_path =~ s|[^/]+$||; if (opendir my $dir, $path) { - foreach my $file (sort { lc $a cmp lc $b } readdir $dir) { + foreach my $file (sort { lc $a cmp lc $b } map { decode("UTF-8", $_) } readdir $dir) { next if (($file eq '.') || ($file eq '..')); my $fname = $file;