Lines 67-72
use CGI; # no utf8 flag, since it may interfere with binary uploads
Link Here
|
67 |
use Digest::MD5; |
67 |
use Digest::MD5; |
68 |
use Encode; |
68 |
use Encode; |
69 |
use Time::HiRes; |
69 |
use Time::HiRes; |
|
|
70 |
use Unicode::Normalize; |
70 |
|
71 |
|
71 |
use base qw(Class::Accessor); |
72 |
use base qw(Class::Accessor); |
72 |
|
73 |
|
Lines 249-254
sub _create_file {
Link Here
|
249 |
sub _hook { |
250 |
sub _hook { |
250 |
my ( $self, $filename, $buffer, $bytes_read, $data ) = @_; |
251 |
my ( $self, $filename, $buffer, $bytes_read, $data ) = @_; |
251 |
$filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename |
252 |
$filename= Encode::decode_utf8( $filename ); # UTF8 chars in filename |
|
|
253 |
$filename = NFC($filename); |
252 |
$self->_compute( $filename, $buffer ); |
254 |
$self->_compute( $filename, $buffer ); |
253 |
my $fh = $self->_fh( $filename ) // $self->_create_file( $filename ); |
255 |
my $fh = $self->_fh( $filename ) // $self->_create_file( $filename ); |
254 |
print $fh $buffer if $fh; |
256 |
print $fh $buffer if $fh; |
255 |
- |
|
|