--- nfo/perl/libs/Log/Dispatch/Config.pm	2003/12/05 18:04:15	1.2
+++ nfo/perl/libs/Log/Dispatch/Config.pm	2003/12/10 17:29:40	1.3
@@ -122,7 +122,7 @@
     return undef unless defined $format;
 
     # caller() called only when necessary
-    my $needs_caller = $format =~ /%[FLP]/;
+    my $needs_caller = $format =~ /%[FLPS]/;
     return sub {
 	my %p = @_;
 	$p{p} = delete $p{level};
@@ -136,13 +136,13 @@
 	    my $depth = 0;
 	    $depth++ while caller($depth) =~ /^Log::Dispatch/;
  	    $depth += :Dispatch::Config::CallerDepth;
- 	    @p{qw(P F L)} = caller($depth);
+ 	    @p{qw(P F L S)} = caller($depth);
  	}
 
 	my $log = $format;
 	$log =~ s{
 	    (%d(?:{(.*?)})?)|	# $1: datetime $2: datetime fmt
-	    (?:%([%pmFLPni]))	# $3: others
+	    (?:%([%pmFLPniS]))	# $3: others
 	}{
 	    if ($1 && $2) {
 		_strftime($2);
@@ -264,6 +264,7 @@
   %n	newline (\n)
   %%	% itself
   %i	process-id, returns POSIX::getpid()
+	%S  subroutine
 
 Note that datetime (%d) format is configurable by passing C<strftime>
 fmt in braket after %d. (I know it looks quite messy, but its