diff options
| author | fukachan <fukachan> | 2002-07-31 13:00:19 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-31 13:00:19 +0000 |
| commit | 172fee95c1f2018fbed4077be7815ced832fd88d (patch) | |
| tree | 39ae999da0aac3093479167cf11244d4c692e9ef | |
| parent | 935da0ea2e6231d050f0a0e99da37dc0ca1a4fa3 (diff) | |
| download | fml8-172fee95c1f2018fbed4077be7815ced832fd88d.tar.gz fml8-172fee95c1f2018fbed4077be7815ced832fd88d.tar.bz2 fml8-172fee95c1f2018fbed4077be7815ced832fd88d.zip | |
use File::Basename;
| -rw-r--r-- | fml/lib/FML/Log.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Log.pm b/fml/lib/FML/Log.pm index 3e60e8cb..6e38ebff 100644 --- a/fml/lib/FML/Log.pm +++ b/fml/lib/FML/Log.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # -# $FML: Log.pm,v 1.18 2002/06/22 14:22:09 fukachan Exp $ +# $FML: Log.pm,v 1.19 2002/07/02 03:54:18 fukachan Exp $ # package FML::Log; @@ -118,8 +118,10 @@ sub Log print $fh "\n"; } else { - my $name = $0; $name =~ s@.*/@@; - my $iam = $name."[". $config->{ _pid } ."]"; + use File::Basename; + my $name = basename($0); + my $pid = $config->{ _pid }; + my $iam = $name."[${pid}]:"; print $fh $rdate->{'log_file_style'}, " ", $iam, " ", $mesg; print $fh "\n"; } |