diff options
| author | fukachan <fukachan> | 2005-05-27 01:48:49 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-05-27 01:48:49 +0000 |
| commit | 1059e0cd170476595b06d3522d3a7915ae86e3be (patch) | |
| tree | b8307a02b240d05b65cf292c40fdd66ba63d9712 /fml/lib | |
| parent | 2192ce3ce53ec2aacd824531170199a5405ea70a (diff) | |
| download | fml8-1059e0cd170476595b06d3522d3a7915ae86e3be.tar.gz fml8-1059e0cd170476595b06d3522d3a7915ae86e3be.tar.bz2 fml8-1059e0cd170476595b06d3522d3a7915ae86e3be.zip | |
use FML::Filter::ErrorStatus instead of ErrorStatus.
clean up.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Filter.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/fml/lib/FML/Filter.pm b/fml/lib/FML/Filter.pm index 896796d1..473da3de 100644 --- a/fml/lib/FML/Filter.pm +++ b/fml/lib/FML/Filter.pm @@ -1,17 +1,17 @@ #-*- perl -*- # -# Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +# Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Filter.pm,v 1.43 2004/07/23 04:04:07 fukachan Exp $ +# $FML: Filter.pm,v 1.44 2004/12/05 16:19:04 fukachan Exp $ # package FML::Filter; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK $AUTOLOAD); use Carp; -use ErrorStatus qw(error_set error error_clear); +use FML::Filter::ErrorStatus qw(error_set error error_clear); # debug my $debug = 0; @@ -198,7 +198,9 @@ sub _apply_article_non_mime_filter RULE: for my $rule (@$rules) { - $curproc->log("filter: article_non_mime_filter.check $rule") if $debug; + if ($debug) { + $curproc->log("filter: article_non_mime_filter.check $rule"); + } if ($rule eq 'permit') { return 0; @@ -598,7 +600,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001,2002,2003,2004 Ken'ichi Fukamachi +Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |