diff options
| author | fukachan <fukachan> | 2002-12-18 04:03:16 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-12-18 04:03:16 +0000 |
| commit | 24d0caaf67834ec29d07cc3e0ade911bcb5ee6e4 (patch) | |
| tree | e2cb570198e33c9deebdf2042deeb80726765d4f /fml/lib | |
| parent | 9e76ead108b13c6dcf5b3a5881903108f34d7953 (diff) | |
| download | fml8-24d0caaf67834ec29d07cc3e0ade911bcb5ee6e4.tar.gz fml8-24d0caaf67834ec29d07cc3e0ade911bcb5ee6e4.tar.bz2 fml8-24d0caaf67834ec29d07cc3e0ade911bcb5ee6e4.zip | |
fix comments and documents.
use $fh->close() not close($fh).
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/MTAControl/Procmail.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/fml/lib/FML/MTAControl/Procmail.pm b/fml/lib/FML/MTAControl/Procmail.pm index 97fffbe7..a4d4968b 100644 --- a/fml/lib/FML/MTAControl/Procmail.pm +++ b/fml/lib/FML/MTAControl/Procmail.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: Procmail.pm,v 1.3 2002/09/11 23:18:13 fukachan Exp $ +# $FML: Procmail.pm,v 1.4 2002/09/22 14:56:51 fukachan Exp $ # package FML::MTAControl::Procmail; @@ -17,7 +17,7 @@ my $debug = 0; =head1 NAME -FML::MTAControl - procmail utilities +FML::MTAControl::Procmail - handle procmail specific configurations =head1 SYNOPSIS @@ -27,8 +27,6 @@ set up aliases and virtual maps for procmail. =head1 METHODS -=head2 new() - =cut @@ -141,11 +139,11 @@ sub procmail_find_key_in_alias_maps while (<$fh>) { return 1 if /^$key:/; } + $fh->close; } else { warn("cannot open $map"); } - $fh->close; } return 0; @@ -228,6 +226,11 @@ sub procmail_setup } +# +# XXX-TODO: how to handle procmail virtual maps ? +# + + # Descriptions: rewrite $params # Arguments: OBJ($self) # OBJ($curproc) HASH_REF($params) HASH_REF($optargs) |