Store SSL_* parameters in request object (#595)

This commit is contained in:
Xavier Guimard 2016-05-27 05:00:47 +00:00
parent 647ad67eeb
commit 724ba71fd7

View File

@ -13,7 +13,7 @@ our $VERSION = '2.0.0';
sub BUILD {
my ( $self, $env ) = @_;
foreach ( keys %$env ) {
$self->{$_} ||= $env->{$_} if (/^HTTP_/);
$self->{$_} ||= $env->{$_} if (/^(?:HTTP|SSL)_/);
}
}