Added randomizeFrom

[clearscm.git] / lib / Logger.pm

diff --git a/lib/Logger.pm b/lib/Logger.pm
index f442cc6..e1fe824 100644 (file)
--- a/lib/Logger.pm
+++ b/lib/Logger.pm
@@ -168,6 +168,8 @@ Returns:
 
   if (defined $parms{extension}) {
     $name .= ".$parms{extension}" unless $parms{extension} eq '';
+  } else {
+    $name .= '.log';
   } # if
 
   open $logfile, $append, "$path/$name"
@@ -511,7 +513,7 @@ Returns:
     $msg = "ERROR: $msg";
   } # if
 
-  $self->log ($msg);
+  $self->msg($msg);
 
   $self->incrementErr;