diff options
| author | fukachan <fukachan> | 2002-08-14 14:14:33 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-08-14 14:14:33 +0000 |
| commit | f28a561e8f366203e37daf10083014831283b19e (patch) | |
| tree | 2249fa3b3a2e4c2893a5bbbce6302c5c5a54d7b8 /fml/lib/FML/Process/Kernel.pm | |
| parent | 3a5762b5fe9b3b6823a1336cc786b789c4309b34 (diff) | |
| download | fml8-f28a561e8f366203e37daf10083014831283b19e.tar.gz fml8-f28a561e8f366203e37daf10083014831283b19e.tar.bz2 fml8-f28a561e8f366203e37daf10083014831283b19e.zip | |
use $config->get_as_array_ref( 'header_loop_check_rules' ) to get list.
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 2c70048f..5c7d1b38 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.125 2002/08/14 03:31:56 fukachan Exp $ +# $FML: Kernel.pm,v 1.126 2002/08/14 04:21:08 fukachan Exp $ # package FML::Process::Kernel; @@ -516,10 +516,11 @@ sub simple_loop_check my ($curproc, $args) = @_; my $config = $curproc->{ config }; my $header = $curproc->incoming_message_header(); + my $rules = $config->get_as_array_ref( 'header_loop_check_rules' ); my $match = 0; RULES: - for my $rule (split(/\s+/, $config->{ header_loop_check_rules })) { + for my $rule (@$rules) { if ($header->can($rule)) { $match = $header->$rule($config, $args) ? $rule : 0; } |