Changeset 420

Show
Ignore:
Timestamp:
01/06/02 18:12:35
Author:
miyagawa
Message:

0.11

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Log-Dispatch-Config/trunk/Changes

    r416 r420  
    11Revision history for Perl extension Log::Dispatch::Config. 
     2 
     30.11  Sun Jan  6 18:01:48 JST 2002 
     4        - format code now becomes one-way parser 
    25 
    360.10  Thu Jan  3 11:12:40 JST 2002 
  • Log-Dispatch-Config/trunk/lib/Log/Dispatch/Config.pm

    r416 r420  
    33use strict; 
    44use vars qw($VERSION); 
    5 $VERSION = '0.10'; 
     5$VERSION = '0.11'; 
    66 
    77use Log::Dispatch; 
     
    134134 
    135135        my $log = $format; 
    136         $log =~ s/%d(?:{(.*?)})?/$1 ? _strftime($1) : scalar localtime/eg; 
    137         $log =~ s/%([%pmFLPn])/$p{$1}/g; 
    138  
     136        $log =~ s{ 
     137            (%d(?:{(.*?)})?)|   # $1: datetime $2: datetime fmt 
     138            (?:%([%pmFLPn]))    # $3: others 
     139        }{ 
     140            if ($1 && $2) { 
     141                _strftime($2); 
     142            } 
     143            elsif ($1) { 
     144                scalar localtime; 
     145            } 
     146            elsif ($3) { 
     147                $p{$3}; 
     148            } 
     149        }egx; 
    139150        return $log; 
    140151    };