Fix UTF-8 values in HTTP headers (#1922)

This commit is contained in:
Maxime Besson 2019-09-17 23:11:04 +02:00
parent 77ca026b09
commit bdd2fed3ae

View File

@ -96,6 +96,7 @@ sub set_custom {
sub set_header_in {
my ( $class, $request, %headers ) = @_;
while ( my ( $h, $v ) = each %headers ) {
utf8::downgrade($v);
$request->env->{'psgi.r'}->headers_in->set( $h => $v );
}
}