diff options
| author | fukachan <fukachan> | 2005-08-15 12:23:13 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-08-15 12:23:13 +0000 |
| commit | 1af9ae0bce4ed05eb63366859892311c7a8eeab1 (patch) | |
| tree | 6ed2e1c98aeccda1de7e5d2c81704cea51023e9c /fml/lib/FML/Log.pm | |
| parent | 8bf1472070e72457282ab10fcedcba8e129fd774 (diff) | |
| download | fml8-1af9ae0bce4ed05eb63366859892311c7a8eeab1.tar.gz fml8-1af9ae0bce4ed05eb63366859892311c7a8eeab1.tar.bz2 fml8-1af9ae0bce4ed05eb63366859892311c7a8eeab1.zip | |
use sprintf instead of "${name}[${pid}]:" to avoid error in perl 5.6.x
Diffstat (limited to 'fml/lib/FML/Log.pm')
| -rw-r--r-- | fml/lib/FML/Log.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Log.pm b/fml/lib/FML/Log.pm index c012ef74..ca0f34f8 100644 --- a/fml/lib/FML/Log.pm +++ b/fml/lib/FML/Log.pm @@ -2,7 +2,7 @@ # # Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi # -# $FML: Log.pm,v 1.29 2004/07/23 13:16:32 fukachan Exp $ +# $FML: Log.pm,v 1.30 2005/05/26 09:40:45 fukachan Exp $ # package FML::Log; @@ -156,7 +156,7 @@ sub Log use File::Basename; my $name = basename($0); my $pid = $config->{ _pid }; - my $iam = "${name}[${pid}]:"; + my $iam = sprintf("%s[%d]", $name, $pid); print $fh $rdate->{'log_file_style'}, " ", $iam, " ", $mesg; print $fh "\n"; } |