diff options
| author | fukachan <fukachan> | 2002-07-25 00:10:29 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-25 00:10:29 +0000 |
| commit | 7153890cef0f521c2fa967c61a18b4e68da20ec4 (patch) | |
| tree | 147686905135c6d8dae9cc198564310288ba0a66 /fml/lib/FML/Process | |
| parent | e79338dad4cd4374eddadab765a098e00a8b26ef (diff) | |
| download | fml8-7153890cef0f521c2fa967c61a18b4e68da20ec4.tar.gz fml8-7153890cef0f521c2fa967c61a18b4e68da20ec4.tar.bz2 fml8-7153890cef0f521c2fa967c61a18b4e68da20ec4.zip | |
improve log messages
Diffstat (limited to 'fml/lib/FML/Process')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index e1fbcd0d..fe2a2d62 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.116 2002/07/19 03:11:36 fukachan Exp $ +# $FML: Kernel.pm,v 1.117 2002/07/23 13:16:43 fukachan Exp $ # package FML::Process::Kernel; @@ -857,8 +857,10 @@ sub reply_message my $myname = $curproc->myname(); # XXX makefml not support message handling not yet. - return if $myname eq 'makefml'; - return if $myname =~ /\.cgi$/; + if ($myname eq 'makefml' || $myname =~ /\.cgi$/) { + LogWarn("$myname disables reply_message()"); + return; + } my $recipient = [ $curproc->{ credential }->sender() ]; |