This fixes the following warning:
Use of uninitialized value $loglevel in lc at
Crypt/Monkeysphere/Logger.pm line 91.
my $class = shift;
my $loglevel = shift;
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});
my $self = {loglevel => $loglevels{lc($loglevel)}};
$self->{loglevel} = $loglevels{error}
if (!defined $self->{loglevel});