must export variable
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@242 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
971b696ffa
commit
b2b7602d32
@ -2,7 +2,7 @@ package Qpsmtpd::Constants;
|
|||||||
use strict;
|
use strict;
|
||||||
require Exporter;
|
require Exporter;
|
||||||
|
|
||||||
my (@common) = qw(OK DECLINED DONE DENY DENYSOFT DENYHARD);
|
my (@common) = qw(OK DECLINED DONE DENY DENYSOFT DENYHARD DENYSOFTHARD);
|
||||||
my (@loglevels) = qw(LOGDEBUG LOGINFO LOGNOTICE LOGWARN LOGERROR LOGCRIT LOGALERT LOGEMERG LOGRADAR);
|
my (@loglevels) = qw(LOGDEBUG LOGINFO LOGNOTICE LOGWARN LOGERROR LOGCRIT LOGALERT LOGEMERG LOGRADAR);
|
||||||
|
|
||||||
use vars qw($VERSION @ISA @EXPORT);
|
use vars qw($VERSION @ISA @EXPORT);
|
||||||
|
Loading…
Reference in New Issue
Block a user