--- nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm	2003/12/05 18:08:20	1.4
+++ nfo/perl/libs/Log/Dispatch/Configurator/Hardwired.pm	2003/12/12 16:45:04	1.5
@@ -1,7 +1,10 @@
 ##    --------------------------------------------------------------------------------
-##    $Id: Hardwired.pm,v 1.4 2003/12/05 18:08:20 joko Exp $
+##    $Id: Hardwired.pm,v 1.5 2003/12/12 16:45:04 ts-dev Exp $
 ##    --------------------------------------------------------------------------------
 ##    $Log: Hardwired.pm,v $
+##    Revision 1.5  2003/12/12 16:45:04  ts-dev
+##    format: package & subroutine (%P:: %s)
+##
 ##    Revision 1.4  2003/12/05 18:08:20  joko
 ##    + improved: PID and timestamp
 ##
@@ -59,6 +62,7 @@
 sub get_attrs {
     my($self, $name) = @_;
     if ($name eq 'file') {
+			
         return {
             class     => 'Log::Dispatch::File',
             min_level => 'debug',
@@ -69,7 +73,7 @@
             # new as of 2003-12-05:
             #   [%i] shows process-id (pid)
             #   dateformat like http://www.w3.org/TR/NOTE-datetime
-            format  => '[%d{%Y-%m-%dT%H:%M:%S}] [%i] [%p] %m%n',
+            format  => '[%d{%Y-%m-%dT%H:%M:%S}] [%i] [%p] [%P:: %s] %m%n',
         };
     }
     elsif ($name eq 'screen') {