[Pkg-privacy-commits] [msva-perl] 01/15: avoid spurious warnings about undefined log levels

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to annotated tag msva-perl_debian/0.8.1-2
in repository msva-perl.

commit 11dd0491e4f8ea555fe1b1ab1f05030e85e47b82
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Thu Jun 2 03:54:00 2011 -0400

    avoid spurious warnings about undefined log levels
---
 Crypt/Monkeysphere/MSVA/Logger.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Crypt/Monkeysphere/MSVA/Logger.pm b/Crypt/Monkeysphere/MSVA/Logger.pm
index eae0df0..a0c600c 100644
--- a/Crypt/Monkeysphere/MSVA/Logger.pm
+++ b/Crypt/Monkeysphere/MSVA/Logger.pm
@@ -45,6 +45,8 @@
     my $self = shift;
     my $msglevel = shift;
 
+    $msglevel = 'error'
+      if (! defined($msglevel));
     if ($loglevels{lc($msglevel)} <= $self->{loglevel}) {
       printf STDERR @_;
     }
@@ -88,7 +90,7 @@
     my $class = shift;
     my $loglevel = shift;
 
-    my $self = {loglevel => $loglevels{lc($loglevel)}};
+    my $self = {loglevel => $loglevels{defined($loglevel) ? lc($loglevel) : 'error'}};
     $self->{loglevel} = $loglevels{error}
       if (!defined $self->{loglevel});
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git