From 67ca162e475b706fe2c48bd0898b72b4e686e4e6 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Mon, 15 Jul 2002 15:27:13 +0000
Subject: define the following access methods: config() pcb()
 incoming_message_header() incoming_message_body() incoming_message()
 article_header() article_body() article_message()

modified to use incoming_message_header() incoming_message_body()
incoming_message() article_header() article_body() article_message().
---
 fml/lib/FML/Process/Kernel.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'fml/lib/FML/Process/Kernel.pm')

diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index efb06ac3..554a2fd0 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.112 2002/07/14 04:13:58 fukachan Exp $
+# $FML: Kernel.pm,v 1.113 2002/07/14 15:15:29 fukachan Exp $
 #
 
 package FML::Process::Kernel;
@@ -363,9 +363,8 @@ sub simple_loop_check
 {
     my ($curproc, $args) = @_;
     my $config = $curproc->{ config };
-    my $r_msg  = $curproc->{ incoming_message };
-    my $header = $r_msg->{ header };
-    my $match = 0;
+    my $header = $curproc->incoming_message_header();
+    my $match  = 0;
 
   RULES:
     for my $rule (split(/\s+/, $config->{ header_loop_check_rules })) {
-- 
cgit v1.2.1