From 172fee95c1f2018fbed4077be7815ced832fd88d Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 31 Jul 2002 13:00:19 +0000
Subject: use File::Basename;

---
 fml/lib/FML/Log.pm | 8 +++++---
 1 file 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";
 	}
-- 
cgit v1.2.1