From a1deb717ee1aa15d13d58fbb30b17536f1b401b8 Mon Sep 17 00:00:00 2001 From: fukachan Date: Sun, 28 Apr 2002 13:34:15 +0000 Subject: validate by defined() more --- fml/lib/FML/Process/Distribute.pm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'fml/lib/FML/Process/Distribute.pm') diff --git a/fml/lib/FML/Process/Distribute.pm b/fml/lib/FML/Process/Distribute.pm index 78b77a96..2be6afef 100644 --- a/fml/lib/FML/Process/Distribute.pm +++ b/fml/lib/FML/Process/Distribute.pm @@ -3,7 +3,7 @@ # Copyright (C) 2000,2001,2002 Ken'ichi Fukamachi # All rights reserved. # -# $FML: Distribute.pm,v 1.73 2002/04/18 15:36:30 fukachan Exp $ +# $FML: Distribute.pm,v 1.74 2002/04/23 14:10:33 fukachan Exp $ # package FML::Process::Distribute; @@ -108,8 +108,14 @@ sub verify_request if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; } $curproc->verify_sender_credential(); - $curproc->simple_loop_check(); - $curproc->_check_filter($args); + + unless ($curproc->is_refused()) { + $curproc->simple_loop_check(); + } + + unless ($curproc->is_refused()) { + $curproc->_check_filter($args); + } $eval = $config->get_hook( 'distribute_verify_request_end_hook' ); if ($eval) { eval qq{ $eval; }; LogWarn($@) if $@; } -- cgit v1.2.1