From a64d6f58e88e7486b0b46681213fb4cfda65521f Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Wed, 18 Jul 2012 16:49:59 +0200 Subject: [PATCH 2/2] Bug 6874: Follow-up: fix filename encoding --- C4/UploadedFiles.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/C4/UploadedFiles.pm b/C4/UploadedFiles.pm index 5ad5adc..b1303a3 100644 --- a/C4/UploadedFiles.pm +++ b/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 = ''; -- 1.7.10.4