diff options
| author | fukachan <fukachan> | 2003-08-23 07:24:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-23 07:24:40 +0000 |
| commit | 9723a7a408f11cf8beaf8f618d2863c2f3e28ddb (patch) | |
| tree | dd4b1e0ae8d32873a0a289d5ba2a7cf01a2cc3ad /fml/lib/FML/Error | |
| parent | 1757df2907216e1ab833c05ac8a2757f0b6a67e7 (diff) | |
| download | fml8-9723a7a408f11cf8beaf8f618d2863c2f3e28ddb.tar.gz fml8-9723a7a408f11cf8beaf8f618d2863c2f3e28ddb.tar.bz2 fml8-9723a7a408f11cf8beaf8f618d2863c2f3e28ddb.zip | |
define $curproc->log, logwarn, logerror and log_message() methods.
modified to use $curproc->log*() interface.
Diffstat (limited to 'fml/lib/FML/Error')
| -rw-r--r-- | fml/lib/FML/Error/Analyze.pm | 10 | ||||
| -rw-r--r-- | fml/lib/FML/Error/Analyze/histgram.pm | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/fml/lib/FML/Error/Analyze.pm b/fml/lib/FML/Error/Analyze.pm index e6756b35..8f9d85b9 100644 --- a/fml/lib/FML/Error/Analyze.pm +++ b/fml/lib/FML/Error/Analyze.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Analyze.pm,v 1.21 2003/05/28 14:33:43 fukachan Exp $ +# $FML: Analyze.pm,v 1.22 2003/08/23 04:35:34 fukachan Exp $ # package FML::Error::Analyze; @@ -138,7 +138,7 @@ sub AUTOLOAD $fp =~ s/.*:://; my $pkg = "FML::Error::Analyze::${fp}"; - Log("load $pkg") if 1; # debug + $curproc->log("load $pkg") if 1; # debug my $analyzer = undef; eval qq{ use $pkg; \$analyzer = new $pkg;}; @@ -149,12 +149,12 @@ sub AUTOLOAD $self->{ _analyzer } = $analyzer; } else { - LogError("${pkg} has no process method"); + $curproc->logerror("${pkg} has no process method"); } } else { - LogError($@) if $@; - LogError("$pkg module is not found"); + $curproc->logerror($@) if $@; + $curproc->logerror("$pkg module is not found"); croak("$pkg module is not found"); # upcall to FML::Error } } diff --git a/fml/lib/FML/Error/Analyze/histgram.pm b/fml/lib/FML/Error/Analyze/histgram.pm index 9a5525a0..41304f77 100644 --- a/fml/lib/FML/Error/Analyze/histgram.pm +++ b/fml/lib/FML/Error/Analyze/histgram.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: histgram.pm,v 1.2 2003/05/28 14:33:44 fukachan Exp $ +# $FML: histgram.pm,v 1.3 2003/08/23 04:35:35 fukachan Exp $ # package FML::Error::Analyze::histgram; @@ -151,7 +151,7 @@ sub _histgram } my $array = __debug_printable_array($ra); - Log("summary: $addr sum=$sum ($array)"); + $curproc->log("summary: $addr sum=$sum ($array)"); push(@removelist, $addr) if $sum >= $limit; } } |