From b83f74f9eb592b51d059aba4b2f81bb3a623a1d8 Mon Sep 17 00:00:00 2001 From: lars Date: Wed, 27 Sep 2017 00:12:26 +0000 Subject: [PATCH] no "defined" check for scalars (perl > 5.20) previously "defined" could be used for checking the existence of scalars --- ezmlm-web.cgi | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ezmlm-web.cgi b/ezmlm-web.cgi index eade01d..899c93f 100755 --- a/ezmlm-web.cgi +++ b/ezmlm-web.cgi @@ -240,13 +240,13 @@ $ALIAS_USER = 'alias' unless defined($ALIAS_USER); $HTML_TITLE = '' unless defined($HTML_TITLE); # check HTML_LINKS -@HTML_LINKS = () unless defined(@HTML_LINKS); +@HTML_LINKS = () unless (@HTML_LINKS); # check DEFAULT_INTERFACE_TYPE $DEFAULT_INTERFACE_TYPE = 'normal' unless defined($DEFAULT_INTERFACE_TYPE); # check possible blacklist of interface options (since v3.3) -@INTERFACE_OPTIONS_BLACKLIST = () unless defined(@INTERFACE_OPTIONS_BLACKLIST); +@INTERFACE_OPTIONS_BLACKLIST = () unless (@INTERFACE_OPTIONS_BLACKLIST); # check the configured detault location of gnupg keyrings $GPG_KEYRING_DEFAULT_LOCATION = ".gnupg"