summaryrefslogtreecommitdiff
path: root/fml
diff options
context:
space:
mode:
authorfukachan <fukachan>2002-07-30 04:02:33 +0000
committerfukachan <fukachan>2002-07-30 04:02:33 +0000
commit2b8483a56ca3e84516a810c705c4addd7ab14528 (patch)
tree640de41a724a9f06ec5b7bc1a1ad7ba1a30d5b0f /fml
parent30f104e70b6adfd20ceaf49c7c8a2265e89308bf (diff)
downloadfml8-2b8483a56ca3e84516a810c705c4addd7ab14528.tar.gz
fml8-2b8483a56ca3e84516a810c705c4addd7ab14528.tar.bz2
fml8-2b8483a56ca3e84516a810c705c4addd7ab14528.zip
libexec/error not need reply_message()
Diffstat (limited to 'fml')
-rw-r--r--fml/lib/FML/Process/Kernel.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index fe2a2d62..88113c8e 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.117 2002/07/23 13:16:43 fukachan Exp $
+# $FML: Kernel.pm,v 1.118 2002/07/25 00:10:29 fukachan Exp $
#
package FML::Process::Kernel;
@@ -857,8 +857,8 @@ sub reply_message
my $myname = $curproc->myname();
# XXX makefml not support message handling not yet.
- if ($myname eq 'makefml' || $myname =~ /\.cgi$/) {
- LogWarn("$myname disables reply_message()");
+ if ($myname eq 'makefml' || $myname =~ /\.cgi$/ || $myname eq 'error') {
+ LogWarn("(debug) $myname disables reply_message()");
return;
}