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

previously "defined" could be used for checking the existence of scalars
master
lars 5 years ago
parent 0f70decd1c
commit b83f74f9eb
  1. 4
      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"

Loading…
Cancel
Save