no "defined" check for scalars (perl > 5.20)

previously "defined" could be used for checking the existence of scalars
This commit is contained in:
lars 2017-09-27 00:12:26 +00:00
parent 0f70decd1c
commit b83f74f9eb

View file

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