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:
John Peacock 2008-10-07 13:48:45 +00:00 committed by Ask Bjørn Hansen
parent 14314f3f10
commit 9f59ca626f

View File

@ -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(