r51832 - in /branches/upstream/liblog-handler-perl/current: ChangeLog META.yml README lib/Log/Handler.pm lib/Log/Handler/Output/Email.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sat Jan 30 04:57:34 2010
New Revision: 51832

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=51832
Log:
[svn-upgrade] Integrating new upstream version, liblog-handler-perl (0.64)

Modified:
    branches/upstream/liblog-handler-perl/current/ChangeLog
    branches/upstream/liblog-handler-perl/current/META.yml
    branches/upstream/liblog-handler-perl/current/README
    branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm
    branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/Email.pm

Modified: branches/upstream/liblog-handler-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/ChangeLog?rev=51832&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/ChangeLog (original)
+++ branches/upstream/liblog-handler-perl/current/ChangeLog Sat Jan 30 04:57:34 2010
@@ -1,3 +1,7 @@
+0.64    Released at 2010-01-29.
+        - Fixed a bug in Email.pm on line 256 - $string can be
+          uninitialized.
+
 0.63    Released at 2009-11-24.
         - Fixed a typo in Email.pm (RT #51745).
         - Added options cc and bcc to Email.pm - this was a

Modified: branches/upstream/liblog-handler-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/META.yml?rev=51832&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/META.yml (original)
+++ branches/upstream/liblog-handler-perl/current/META.yml Sat Jan 30 04:57:34 2010
@@ -1,6 +1,6 @@
 ---
 name: Log-Handler
-version: 0.63
+version: 0.64
 author:
   - Jonny Schulz
 abstract: Log messages to several outputs.
@@ -31,7 +31,7 @@
 provides:
   Log::Handler:
     file: lib/Log/Handler.pm
-    version: 0.63
+    version: 0.64
   Log::Handler::Config:
     file: lib/Log/Handler/Config.pm
     version: 0.07
@@ -46,7 +46,7 @@
     version: 0.09
   Log::Handler::Output::Email:
     file: lib/Log/Handler/Output/Email.pm
-    version: 0.07
+    version: 0.08
   Log::Handler::Output::File:
     file: lib/Log/Handler/Output/File.pm
     version: 0.06

Modified: branches/upstream/liblog-handler-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/README?rev=51832&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/README (original)
+++ branches/upstream/liblog-handler-perl/current/README Sat Jan 30 04:57:34 2010
@@ -348,7 +348,7 @@
     message_pattern
         This option is just useful if you want to forward messages to output
         modules that needs the parts of a message as a hash reference - as
-        example Log::Handler::Output::Forward, Log::Handler::Output::DBI
+        example Log::Handler::Output::Forward, Log::Handler::Output::DBI or
         Log::Handler::Output::Screen.
 
         The option expects a list of placeholders:

Modified: branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm?rev=51832&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm (original)
+++ branches/upstream/liblog-handler-perl/current/lib/Log/Handler.pm Sat Jan 30 04:57:34 2010
@@ -390,7 +390,7 @@
 This option is just useful if you want to forward messages to output
 modules that needs the parts of a message as a hash reference - as
 example L<Log::Handler::Output::Forward>, L<Log::Handler::Output::DBI>
-L<Log::Handler::Output::Screen>.
+or L<Log::Handler::Output::Screen>.
 
 The option expects a list of placeholders:
 
@@ -1114,7 +1114,7 @@
 use UNIVERSAL;
 use base qw(Log::Handler::Levels);
 
-our $VERSION = "0.63";
+our $VERSION = "0.64";
 our $ERRSTR  = "";
 
 # $TRACE and $CALLER_LEVEL are both used as global

Modified: branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/Email.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/Email.pm?rev=51832&op=diff
==============================================================================
--- branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/Email.pm (original)
+++ branches/upstream/liblog-handler-perl/current/lib/Log/Handler/Output/Email.pm Sat Jan 30 04:57:34 2010
@@ -182,7 +182,7 @@
 use Net::SMTP;
 use Params::Validate qw();
 
-our $VERSION = "0.07";
+our $VERSION = "0.08";
 our $ERRSTR  = "";
 our $TEST    =  0; # is needed to disable flush() for tests
 
@@ -250,7 +250,10 @@
         $string .= $buf->{message};
     }
 
-    $message->{message} = $string . $message->{message};
+    if (defined $string) {
+        $message->{message} = $string . $message->{message};
+    }
+
     return $self->sendmail($message);
 }