--- nfo/perl/libs/DesignPattern/Logger.pm	2003/03/28 07:23:25	1.3
+++ nfo/perl/libs/DesignPattern/Logger.pm	2003/03/29 07:16:00	1.4
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Logger.pm,v 1.3 2003/03/28 07:23:25 joko Exp $
+##  $Id: Logger.pm,v 1.4 2003/03/29 07:16:00 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Logger.pm,v $
+##  Revision 1.4  2003/03/29 07:16:00  joko
+##  minor update: changed default log-file-name to 'perl_app.log'
+##
 ##  Revision 1.3  2003/03/28 07:23:25  joko
 ##  fix to basepath calculation
 ##
@@ -336,7 +339,7 @@
   
     if ($configurator) {
   
-      $configurator->{file_filename} = "$basepath/app.log";
+      $configurator->{file_filename} = "$basepath/perl_app.log";
       $configurator->{screen_min_level} = 'info';
       
       if ($self->{quiet}) {