@@ -, +, @@ --- C4/UploadedFiles.pm | 2 ++ 1 file changed, 2 insertions(+) --- a/C4/UploadedFiles.pm +++ a/C4/UploadedFiles.pm @@ -54,6 +54,7 @@ It is not related to C4::UploadedFile use Modern::Perl; use Digest::SHA; use Fcntl; +use Encode; use C4::Context; @@ -124,6 +125,7 @@ sub UploadFile { warn "Filename or dirname contains '..'. Aborting upload"; return; } + $filename = decode_utf8($filename); my $buffer; my $data = ''; --