r65253 - in /trunk/liblog-handler-perl: ChangeLog META.yml debian/changelog debian/control lib/Log/Handler.pm

[carnil at users.alioth.debian.org]

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.