From 25e6dddb9feee416ce7c4201a58109b53e74876e Mon Sep 17 00:00:00 2001
From: "W. Trevor King" <wking@drexel.edu>
Date: Thu, 26 May 2011 07:33:52 -0400
Subject: [PATCH] Give default value for $loglevel.

This fixes the following warning:

  Use of uninitialized value $loglevel in lc at
  Crypt/Monkeysphere/Logger.pm line 91.
---
 Crypt/Monkeysphere/Logger.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Crypt/Monkeysphere/Logger.pm b/Crypt/Monkeysphere/Logger.pm
index 4dc0874..2891597 100644
--- a/Crypt/Monkeysphere/Logger.pm
+++ b/Crypt/Monkeysphere/Logger.pm
@@ -88,6 +88,9 @@
     my $class = shift;
     my $loglevel = shift;
 
+    $loglevel = 1
+      if (!defined $loglevel);
+
     my $self = {loglevel => $loglevels{lc($loglevel)}};
     $self->{loglevel} = $loglevels{error}
       if (!defined $self->{loglevel});
-- 
2.26.2