byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Change qw() to qw[] in warn_level()

Browse Source
This commit is contained in:
Jared Johnson 2014-12-15 20:22:28 -06:00
parent d3ec361ab8
commit 1d01a85542
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Qpsmtpd.pm
View File

@ -101,7 +101,7 @@ sub warn_handler {
sub warn_level { sub warn_level {
my ( $self, @warnings ) = @_; my ( $self, @warnings ) = @_;
my @levels = ( keys %Qpsmtpd::Constants::log_levels, my @levels = ( keys %Qpsmtpd::Constants::log_levels,
qw( LOGWARNING LOGCRITICAL LOGEMERGENCY ) ); qw[ LOGWARNING LOGCRITICAL LOGEMERGENCY ] );
my $levels = join '|', map { s/^LOG//; $_ } @levels; my $levels = join '|', map { s/^LOG//; $_ } @levels;
$warnings[0] =~ s/^($levels):\s*//; $warnings[0] =~ s/^($levels):\s*//;
my $prefix = $1; my $prefix = $1;