diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-10-01 17:31:01 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2019-10-01 17:31:01 +0300 |
commit | 3ba18dcf5581f79974ee1aadfe7dca20e2ea6a16 (patch) | |
tree | 87e5b6cf957347251922fed5562d7263a023db91 | |
parent | 2ba856e58f64a70ff336dca733c210da06f9db37 (diff) | |
download | mojosyslog-3ba18dcf5581f79974ee1aadfe7dca20e2ea6a16.tar.gz mojosyslog-3ba18dcf5581f79974ee1aadfe7dca20e2ea6a16.tar.bz2 |
Fix typosv1.01
-rw-r--r-- | Changes | 7 | ||||
-rw-r--r-- | lib/Mojo/Log/Syslog.pm | 6 |
2 files changed, 9 insertions, 4 deletions
@@ -1,3 +1,8 @@ +1.01 2019-10-01 + + - Fix typos: use LOG_ERR instead of LOG_ERROR and LOG_WARNING + instead of LOG_WARN. + 1.00 2017-11-12 -* Initial release + - Initial release diff --git a/lib/Mojo/Log/Syslog.pm b/lib/Mojo/Log/Syslog.pm index 4582037..3e5992c 100644 --- a/lib/Mojo/Log/Syslog.pm +++ b/lib/Mojo/Log/Syslog.pm @@ -3,13 +3,13 @@ use strict; use warnings; use Mojo::Base 'Mojo::Log'; use File::Basename 'basename'; use Sys::Syslog qw(:standard :macros); use Carp; -our $VERSION = '1.0'; +our $VERSION = '1.01'; sub new { my $class = shift; local %_ = @_; my $ident = delete $_{ident} || basename($0); my $facility = delete $_{facility} || LOG_USER; @@ -21,15 +21,15 @@ sub new { croak "unrecognized arguments" if keys(%_); openlog($ident, $logopt, $facility); return $class->SUPER::new(level => $level); } sub debug { shift->_syslog(debug => LOG_DEBUG => @_) } -sub warn { shift->_syslog(warn => LOG_WARN => @_) } +sub warn { shift->_syslog(warn => LOG_WARNING => @_) } sub info { shift->_syslog(info => LOG_INFO => @_) } -sub error { shift->_syslog(error => LOG_ERROR => @_) } +sub error { shift->_syslog(error => LOG_ERR => @_) } sub fatal { shift->_syslog(fatal => LOG_CRIT => @_) } sub _syslog { my ($self, $level, $prio, @args) = @_; $self->{_priority} = $prio; $self->${\ "SUPER::$level"}(@args); |