r65253 - in /trunk/liblog-handler-perl: ChangeLog META.yml debian/changelog debian/control lib/Log/Handler.pm
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Thu Nov 25 13:39:17 UTC 2010
Author: carnil
Date: Thu Nov 25 13:39:09 2010
New Revision: 65253
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=65253
Log:
* New upstream release
* debian/control: Move perl to Build-Depends from Build-Depends-Indep.
Modified:
trunk/liblog-handler-perl/ChangeLog
trunk/liblog-handler-perl/META.yml
trunk/liblog-handler-perl/debian/changelog
trunk/liblog-handler-perl/debian/control
trunk/liblog-handler-perl/lib/Log/Handler.pm
Modified: trunk/liblog-handler-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/ChangeLog?rev=65253&op=diff
==============================================================================
--- trunk/liblog-handler-perl/ChangeLog (original)
+++ trunk/liblog-handler-perl/ChangeLog Thu Nov 25 13:39:09 2010
@@ -1,3 +1,7 @@
+0.68 Released at 2010-11-24.
+ - Fixed a bug in add(). It wasn't possible to pass more
+ than one output configuration to add().
+
0.67 Released at 2010-10-10.
- Fixed a bug in set_level. The new level was set correctly
but no message was logged because the output wasn't added
Modified: trunk/liblog-handler-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/META.yml?rev=65253&op=diff
==============================================================================
--- trunk/liblog-handler-perl/META.yml (original)
+++ trunk/liblog-handler-perl/META.yml Thu Nov 25 13:39:09 2010
@@ -1,6 +1,6 @@
---
name: Log-Handler
-version: 0.67
+version: 0.68
author:
- Jonny Schulz
abstract: Log messages to several outputs.
@@ -29,7 +29,7 @@
provides:
Log::Handler:
file: lib/Log/Handler.pm
- version: 0.67
+ version: 0.68
Log::Handler::Config:
file: lib/Log/Handler/Config.pm
version: 0.07
Modified: trunk/liblog-handler-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/changelog?rev=65253&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/changelog (original)
+++ trunk/liblog-handler-perl/debian/changelog Thu Nov 25 13:39:09 2010
@@ -1,3 +1,10 @@
+liblog-handler-perl (0.68-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * debian/control: Move perl to Build-Depends from Build-Depends-Indep.
+
+ -- Salvatore Bonaccorso <carnil at debian.org> Thu, 25 Nov 2010 14:38:58 +0100
+
liblog-handler-perl (0.67-1) unstable; urgency=low
[ Salvatore Bonaccorso ]
Modified: trunk/liblog-handler-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/debian/control?rev=65253&op=diff
==============================================================================
--- trunk/liblog-handler-perl/debian/control (original)
+++ trunk/liblog-handler-perl/debian/control Thu Nov 25 13:39:09 2010
@@ -1,9 +1,9 @@
Source: liblog-handler-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 8)
+Build-Depends: debhelper (>= 8), perl
Build-Depends-Indep: libdbi-perl, libemail-date-perl, libmro-compat-perl,
- libparams-validate-perl, libtest-pod-coverage-perl, libtest-pod-perl, perl
+ libparams-validate-perl, libtest-pod-coverage-perl, libtest-pod-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: gregor herrmann <gregoa at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
Rene Mayorga <rmayorga at debian.org.sv>, Ansgar Burchardt <ansgar at debian.org>,
Modified: trunk/liblog-handler-perl/lib/Log/Handler.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblog-handler-perl/lib/Log/Handler.pm?rev=65253&op=diff
==============================================================================
--- trunk/liblog-handler-perl/lib/Log/Handler.pm (original)
+++ trunk/liblog-handler-perl/lib/Log/Handler.pm Thu Nov 25 13:39:09 2010
@@ -1051,7 +1051,7 @@
use UNIVERSAL;
use base qw(Log::Handler::Levels);
-our $VERSION = "0.67";
+our $VERSION = "0.68";
our $ERRSTR = "";
# $TRACE and $CALLER_LEVEL are both used as global
@@ -1197,25 +1197,29 @@
}
sub add {
- my $self = shift;
-
- if ($_[0] && $_[0] eq "config") {
- return $self->config(@_);
- }
-
- if (@_ > 2) {
- while (@_) {
- my $type = shift;
- my $conf = shift;
+ my ($self, @args) = @_;
+
+ if ($args[0] && $args[0] eq "config") {
+ return $self->config(@args);
+ }
+
+ if (@args > 2) {
+ if (@args % 2 != 0) {
+ Carp::croak 'Odd number of arguments to Log::Handler::add';
+ }
+ while (@args) {
+ my $type = shift @args;
+ my $conf = shift @args;
$self->add($type, $conf);
}
+ return 1;
}
# At first the config will be splitted into
# the package name (Log::Handler::Output::*),
# the options for the handler and the options
# for the output-module.
- my ($package, $h_opts, $o_opts) = $self->_split_config(@_);
+ my ($package, $h_opts, $o_opts) = $self->_split_config(@args);
# In the next step the handler options
# must be validated.
More information about the Pkg-perl-cvs-commits
mailing list