From 2caa191334bddf85840588e6f19ee9ee659a6356 Mon Sep 17 00:00:00 2001 From: Jared Johnson Date: Mon, 15 Sep 2014 11:03:52 -0500 Subject: [PATCH] Avoid warnings on undef hook_config returns values --- lib/Qpsmtpd.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lib/Qpsmtpd.pm b/lib/Qpsmtpd.pm index 4c19ae8..00f9450 100644 --- a/lib/Qpsmtpd.pm +++ b/lib/Qpsmtpd.pm @@ -152,7 +152,8 @@ sub config { return wantarray ? @config : $config[0] if defined $rc and $rc == OK; ($rc, @config) = $self->run_hooks_no_respond('config',$c); - $self->log(LOGDEBUG, "config($c): hook returned ($rc, @config) "); + $self->log(LOGDEBUG, "config($c): hook returned (" + . join( ',', map { defined $_ ? $_ : 'undef' } ($rc,@config) ) . ")"); return wantarray ? @config : $config[0] if defined $rc and $rc == OK;