View | Details | Raw Unified | Return to bug 6874
Collapse All | Expand All

(-)a/C4/UploadedFiles.pm (-1 / +2 lines)
Lines 54-59 It is not related to C4::UploadedFile Link Here
54
use Modern::Perl;
54
use Modern::Perl;
55
use Digest::SHA;
55
use Digest::SHA;
56
use Fcntl;
56
use Fcntl;
57
use Encode;
57
58
58
use C4::Context;
59
use C4::Context;
59
60
Lines 124-129 sub UploadFile { Link Here
124
        warn "Filename or dirname contains '..'. Aborting upload";
125
        warn "Filename or dirname contains '..'. Aborting upload";
125
        return;
126
        return;
126
    }
127
    }
128
    $filename = decode_utf8($filename);
127
129
128
    my $buffer;
130
    my $buffer;
129
    my $data = '';
131
    my $data = '';
130
- 

Return to bug 6874