diff options
| author | fukachan <fukachan> | 2004-06-24 11:32:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-06-24 11:32:07 +0000 |
| commit | 21d1ea289653c241e2cf735301fcc56cb6058846 (patch) | |
| tree | 433bc422c70d80d69bdffe1823c8609c8d26420e /fml/lib/FML/Process | |
| parent | 6f95278d5950a183e19d03debd415e899d5bf2cf (diff) | |
| download | fml8-21d1ea289653c241e2cf735301fcc56cb6058846.tar.gz fml8-21d1ea289653c241e2cf735301fcc56cb6058846.tar.bz2 fml8-21d1ea289653c241e2cf735301fcc56cb6058846.zip | |
nuke old style FML::Log use.
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/QMail.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/fml/lib/FML/Process/QMail.pm b/fml/lib/FML/Process/QMail.pm index 14b455f0..b52e44a7 100644 --- a/fml/lib/FML/Process/QMail.pm +++ b/fml/lib/FML/Process/QMail.pm @@ -4,14 +4,13 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: QMail.pm,v 1.20 2004/01/02 14:50:37 fukachan Exp $ +# $FML: QMail.pm,v 1.21 2004/03/12 04:22:56 fukachan Exp $ # package FML::Process::QMail; use strict; use Carp; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); -use FML::Log qw(Log LogWarn LogError); # Descriptions: standard contructor @@ -88,12 +87,12 @@ sub DotQmailExt return ''; } - &$curproc->log("dot-qmail-ext: $ext"); + $curproc->log("dot-qmail-ext: $ext"); $ext =~ s/^$key//i; $ext =~ s/\-\-/\@/i; # since @ cannot be used $ext =~ s/\-/ /g; $ext =~ s/\@/-/g; - &$curproc->log("\$ext -> $ext"); + $curproc->log("\$ext -> $ext"); # XXX: "# command" is internal represention return sprintf("# %s", $ext); |