Sometimes Perl is too smart for its own good. Precedence rules sux...
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@950 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
14314f3f10
commit
9f59ca626f
@ -75,7 +75,7 @@ sub init {
|
||||
$self->tls_ca($ca);
|
||||
$self->tls_ciphers($self->qp->config('tls_ciphers') || 'HIGH');
|
||||
|
||||
$self->log(LOGINFO, "ciphers: $self->tls_ciphers");
|
||||
$self->log(LOGINFO, "ciphers: ".$self->tls_ciphers);
|
||||
|
||||
local $^W; # this bit is very noisy...
|
||||
my $ssl_ctx = IO::Socket::SSL::SSL_Context->new(
|
||||
|
Loading…
Reference in New Issue
Block a user