no "defined" check for scalars (perl > 5.20)
previously "defined" could be used for checking the existence of scalars
This commit is contained in:
parent
0f70decd1c
commit
b83f74f9eb
|
@ -240,13 +240,13 @@ $ALIAS_USER = 'alias' unless defined($ALIAS_USER);
|
||||||
$HTML_TITLE = '' unless defined($HTML_TITLE);
|
$HTML_TITLE = '' unless defined($HTML_TITLE);
|
||||||
|
|
||||||
# check HTML_LINKS
|
# check HTML_LINKS
|
||||||
@HTML_LINKS = () unless defined(@HTML_LINKS);
|
@HTML_LINKS = () unless (@HTML_LINKS);
|
||||||
|
|
||||||
# check DEFAULT_INTERFACE_TYPE
|
# check DEFAULT_INTERFACE_TYPE
|
||||||
$DEFAULT_INTERFACE_TYPE = 'normal' unless defined($DEFAULT_INTERFACE_TYPE);
|
$DEFAULT_INTERFACE_TYPE = 'normal' unless defined($DEFAULT_INTERFACE_TYPE);
|
||||||
|
|
||||||
# check possible blacklist of interface options (since v3.3)
|
# 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
|
# check the configured detault location of gnupg keyrings
|
||||||
$GPG_KEYRING_DEFAULT_LOCATION = ".gnupg"
|
$GPG_KEYRING_DEFAULT_LOCATION = ".gnupg"
|
||||||
|
|
Loading…
Reference in a new issue