--- nfo/perl/libs/Log/Dispatch/Config.pm	2003/12/05 16:18:45	1.1
+++ nfo/perl/libs/Log/Dispatch/Config.pm	2003/12/05 18:04:15	1.2
@@ -129,6 +129,8 @@
 	$p{m} = delete $p{message};
 	$p{n} = "\n";
 	$p{'%'} = '%';
+        require POSIX;
+        $p{i} = POSIX::getpid();
 
  	if ($needs_caller) {
 	    my $depth = 0;
@@ -140,7 +142,7 @@
 	my $log = $format;
 	$log =~ s{
 	    (%d(?:{(.*?)})?)|	# $1: datetime $2: datetime fmt
-	    (?:%([%pmFLPn]))	# $3: others
+	    (?:%([%pmFLPni]))	# $3: others
 	}{
 	    if ($1 && $2) {
 		_strftime($2);
@@ -261,6 +263,7 @@
   %P	package
   %n	newline (\n)
   %%	% itself
+  %i	process-id, returns POSIX::getpid()
 
 Note that datetime (%d) format is configurable by passing C<strftime>
 fmt in braket after %d. (I know it looks quite messy, but its