Hello community,
here is the log from the commit of package perl-Log-Any for openSUSE:Factory checked in at 2017-10-09 19:45:00
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Log-Any (Old)
and /work/SRC/openSUSE:Factory/.perl-Log-Any.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Log-Any"
Mon Oct 9 19:45:00 2017 rev:20 rq:532519 version:1.701
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Log-Any/perl-Log-Any.changes 2017-10-03 23:17:38.935345798 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Log-Any.new/perl-Log-Any.changes 2017-10-09 19:47:40.425027434 +0200
@@ -1,0 +2,14 @@
+Tue Oct 3 05:40:29 UTC 2017 - coolo@suse.com
+
+- updated to 1.701
+ see /usr/share/doc/packages/perl-Log-Any/Changes
+
+ 1.701 2017-10-02 14:36:51-05:00 America/Chicago
+
+ [Fixed]
+
+ - Fixed more method aliases in Log::Any::Adapter::Syslog that were
+ mapped to invalid syslog priorities. Thanks @legaultp for the
+ patch!
+
+-------------------------------------------------------------------
Old:
----
Log-Any-1.700.tar.gz
New:
----
Log-Any-1.701.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Log-Any.spec ++++++
--- /var/tmp/diff_new_pack.XZbkQd/_old 2017-10-09 19:47:40.961003877 +0200
+++ /var/tmp/diff_new_pack.XZbkQd/_new 2017-10-09 19:47:40.965003701 +0200
@@ -17,7 +17,7 @@
Name: perl-Log-Any
-Version: 1.700
+Version: 1.701
Release: 0
%define cpan_name Log-Any
Summary: Bringing loggers and listeners together
++++++ Log-Any-1.700.tar.gz -> Log-Any-1.701.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/Changes new/Log-Any-1.701/Changes
--- old/Log-Any-1.700/Changes 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/Changes 2017-10-02 21:36:56.000000000 +0200
@@ -2,6 +2,14 @@
** denotes an incompatible change
+1.701 2017-10-02 14:36:51-05:00 America/Chicago
+
+ [Fixed]
+
+ - Fixed more method aliases in Log::Any::Adapter::Syslog that were
+ mapped to invalid syslog priorities. Thanks @legaultp for the
+ patch!
+
1.700 2017-09-28 16:59:22-05:00 America/Chicago
[Fixed]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/META.json new/Log-Any-1.701/META.json
--- old/Log-Any-1.700/META.json 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/META.json 2017-10-02 21:36:56.000000000 +0200
@@ -70,63 +70,63 @@
"provides" : {
"Log::Any" : {
"file" : "lib/Log/Any.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter" : {
"file" : "lib/Log/Any/Adapter.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::Base" : {
"file" : "lib/Log/Any/Adapter/Base.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::File" : {
"file" : "lib/Log/Any/Adapter/File.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::Null" : {
"file" : "lib/Log/Any/Adapter/Null.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::Stderr" : {
"file" : "lib/Log/Any/Adapter/Stderr.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::Stdout" : {
"file" : "lib/Log/Any/Adapter/Stdout.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::Syslog" : {
"file" : "lib/Log/Any/Adapter/Syslog.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::Test" : {
"file" : "lib/Log/Any/Adapter/Test.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Adapter::Util" : {
"file" : "lib/Log/Any/Adapter/Util.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Manager" : {
"file" : "lib/Log/Any/Manager.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Proxy" : {
"file" : "lib/Log/Any/Proxy.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Proxy::Null" : {
"file" : "lib/Log/Any/Proxy/Null.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Proxy::Test" : {
"file" : "lib/Log/Any/Proxy/Test.pm",
- "version" : "1.700"
+ "version" : "1.701"
},
"Log::Any::Test" : {
"file" : "lib/Log/Any/Test.pm",
- "version" : "1.700"
+ "version" : "1.701"
}
},
"release_status" : "stable",
@@ -141,7 +141,7 @@
"web" : "https://github.com/preaction/Log-Any"
}
},
- "version" : "1.700",
+ "version" : "1.701",
"x_authority" : "cpan:PREACTION",
"x_contributors" : [
"bj5004 ",
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/META.yml new/Log-Any-1.701/META.yml
--- old/Log-Any-1.700/META.yml 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/META.yml 2017-10-02 21:36:56.000000000 +0200
@@ -34,49 +34,49 @@
provides:
Log::Any:
file: lib/Log/Any.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter:
file: lib/Log/Any/Adapter.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::Base:
file: lib/Log/Any/Adapter/Base.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::File:
file: lib/Log/Any/Adapter/File.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::Null:
file: lib/Log/Any/Adapter/Null.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::Stderr:
file: lib/Log/Any/Adapter/Stderr.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::Stdout:
file: lib/Log/Any/Adapter/Stdout.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::Syslog:
file: lib/Log/Any/Adapter/Syslog.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::Test:
file: lib/Log/Any/Adapter/Test.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Adapter::Util:
file: lib/Log/Any/Adapter/Util.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Manager:
file: lib/Log/Any/Manager.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Proxy:
file: lib/Log/Any/Proxy.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Proxy::Null:
file: lib/Log/Any/Proxy/Null.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Proxy::Test:
file: lib/Log/Any/Proxy/Test.pm
- version: '1.700'
+ version: '1.701'
Log::Any::Test:
file: lib/Log/Any/Test.pm
- version: '1.700'
+ version: '1.701'
requires:
B: '0'
Carp: '0'
@@ -96,7 +96,7 @@
bugtracker: https://github.com/preaction/Log-Any/issues
homepage: https://github.com/preaction/Log-Any
repository: https://github.com/preaction/Log-Any.git
-version: '1.700'
+version: '1.701'
x_authority: cpan:PREACTION
x_contributors:
- 'bj5004 '
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/Makefile.PL new/Log-Any-1.701/Makefile.PL
--- old/Log-Any-1.700/Makefile.PL 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/Makefile.PL 2017-10-02 21:36:56.000000000 +0200
@@ -38,7 +38,7 @@
"IPC::Open3" => 0,
"Test::More" => 0
},
- "VERSION" => "1.700",
+ "VERSION" => "1.701",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Base.pm new/Log-Any-1.701/lib/Log/Any/Adapter/Base.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Base.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Base.pm 2017-10-02 21:36:56.000000000 +0200
@@ -4,7 +4,7 @@
package Log::Any::Adapter::Base;
-our $VERSION = '1.700';
+our $VERSION = '1.701';
our @CARP_NOT = ( 'Log::Any::Adapter' );
# we import these in case any legacy adapter uses them as class methods
@@ -52,7 +52,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Development.pod new/Log-Any-1.701/lib/Log/Any/Adapter/Development.pod
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Development.pod 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Development.pod 2017-10-02 21:36:56.000000000 +0200
@@ -16,7 +16,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/File.pm new/Log-Any-1.701/lib/Log/Any/Adapter/File.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/File.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/File.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Adapter::File;
# ABSTRACT: Simple adapter for logging to files
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Config;
use Fcntl qw/:flock/;
@@ -80,7 +80,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Null.pm new/Log-Any-1.701/lib/Log/Any/Adapter/Null.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Null.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Null.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Adapter::Null;
# ABSTRACT: Discards all log messages
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Adapter::Base;
our @ISA = qw/Log::Any::Adapter::Base/;
@@ -33,7 +33,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Stderr.pm new/Log-Any-1.701/lib/Log/Any/Adapter/Stderr.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Stderr.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Stderr.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Adapter::Stderr;
# ABSTRACT: Simple adapter for logging to STDERR
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Adapter::Util ();
@@ -62,7 +62,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Stdout.pm new/Log-Any-1.701/lib/Log/Any/Adapter/Stdout.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Stdout.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Stdout.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Adapter::Stdout;
# ABSTRACT: Simple adapter for logging to STDOUT
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Adapter::Util ();
@@ -62,7 +62,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Syslog.pm new/Log-Any-1.701/lib/Log/Any/Adapter/Syslog.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Syslog.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Syslog.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Adapter::Syslog;
# ABSTRACT: Send Log::Any logs to syslog
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Adapter::Util qw{make_method};
use base qw{Log::Any::Adapter::Base};
@@ -99,11 +99,11 @@
warn => "warning",
error => "err",
err => "err",
- critical => "critical",
- crit => "critical",
- fatal => "critical",
+ critical => "crit",
+ crit => "crit",
+ fatal => "crit",
alert => "alert",
- emergency => "emergency",
+ emergency => "emerg",
}->{$method};
defined($priority) or $priority = "error"; # unknown, take a guess.
@@ -141,7 +141,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Test.pm new/Log-Any-1.701/lib/Log/Any/Adapter/Test.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Test.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Test.pm 2017-10-02 21:36:56.000000000 +0200
@@ -4,7 +4,7 @@
package Log::Any::Adapter::Test;
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Adapter::Util qw/dump_one_line/;
use Test::Builder;
@@ -218,7 +218,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter/Util.pm new/Log-Any-1.701/lib/Log/Any/Adapter/Util.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter/Util.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter/Util.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Adapter::Util;
# ABSTRACT: Common utility functions for Log::Any
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Exporter;
our @ISA = qw/Exporter/;
@@ -241,7 +241,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Adapter.pm new/Log-Any-1.701/lib/Log/Any/Adapter.pm
--- old/Log-Any-1.700/lib/Log/Any/Adapter.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Adapter.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Adapter;
# ABSTRACT: Tell Log::Any where to send its logs
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any;
our @CARP_NOT = ( 'Log::Any::Manager' );
@@ -39,7 +39,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Manager.pm new/Log-Any-1.701/lib/Log/Any/Manager.pm
--- old/Log-Any-1.700/lib/Log/Any/Manager.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Manager.pm 2017-10-02 21:36:56.000000000 +0200
@@ -4,7 +4,7 @@
package Log::Any::Manager;
-our $VERSION = '1.700';
+our $VERSION = '1.701';
sub new {
my $class = shift;
@@ -249,7 +249,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Proxy/Null.pm new/Log-Any-1.701/lib/Log/Any/Proxy/Null.pm
--- old/Log-Any-1.700/lib/Log/Any/Proxy/Null.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Proxy/Null.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Proxy::Null;
# ABSTRACT: Log::Any generator proxy for no adapters
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Adapter::Util ();
use Log::Any::Proxy;
@@ -57,7 +57,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Proxy/Test.pm new/Log-Any-1.701/lib/Log/Any/Proxy/Test.pm
--- old/Log-Any-1.700/lib/Log/Any/Proxy/Test.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Proxy/Test.pm 2017-10-02 21:36:56.000000000 +0200
@@ -4,7 +4,7 @@
package Log::Any::Proxy::Test;
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Proxy;
our @ISA = qw/Log::Any::Proxy/;
@@ -42,7 +42,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 AUTHORS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Proxy.pm new/Log-Any-1.701/lib/Log/Any/Proxy.pm
--- old/Log-Any-1.700/lib/Log/Any/Proxy.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Proxy.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Proxy;
# ABSTRACT: Log::Any generator proxy object
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Adapter::Util ();
use overload;
@@ -146,7 +146,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any/Test.pm new/Log-Any-1.701/lib/Log/Any/Test.pm
--- old/Log-Any-1.700/lib/Log/Any/Test.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any/Test.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any::Test;
# ABSTRACT: Test what you're logging with Log::Any
-our $VERSION = '1.700';
+our $VERSION = '1.701';
no warnings 'once';
$Log::Any::OverrideDefaultAdapterClass = 'Log::Any::Adapter::Test';
@@ -25,7 +25,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/lib/Log/Any.pm new/Log-Any-1.701/lib/Log/Any.pm
--- old/Log-Any-1.700/lib/Log/Any.pm 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/lib/Log/Any.pm 2017-10-02 21:36:56.000000000 +0200
@@ -5,7 +5,7 @@
package Log::Any;
# ABSTRACT: Bringing loggers and listeners together
-our $VERSION = '1.700';
+our $VERSION = '1.701';
use Log::Any::Manager;
use Log::Any::Proxy::Null;
@@ -134,7 +134,7 @@
=head1 VERSION
-version 1.700
+version 1.701
=head1 SYNOPSIS
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Log-Any-1.700/t/syslog.t new/Log-Any-1.701/t/syslog.t
--- old/Log-Any-1.700/t/syslog.t 2017-09-28 23:59:27.000000000 +0200
+++ new/Log-Any-1.701/t/syslog.t 2017-10-02 21:36:56.000000000 +0200
@@ -25,9 +25,9 @@
notice => "notice",
warning => "warning",
error => "err",
- critical => "critical",
+ critical => "crit",
alert => "alert",
- emergency => "emergency",
+ emergency => "emerg",
);
for my $level (sort keys %tests) {
@@ -61,6 +61,6 @@
$log->error( 'foo' );
is scalar @logs, 0, 'no log written because log_level too high';
$log->emergency( 'help' );
-is $logs[-1][0], 'emergency', 'emergency log is logged';
+is $logs[-1][0], 'emerg', 'emergency log is logged';
is $logs[-1][1], 'help', 'emergency log is logged';