diff options
| author | fukachan <fukachan> | 2003-09-12 04:37:15 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-09-12 04:37:15 +0000 |
| commit | f06d8a9aba0dccd3a5f931f0c35ba468ff64f84e (patch) | |
| tree | e1d9872e2e24a3af4d6d85d8961ba1413afbead3 /fml/lib | |
| parent | 0a7b9a14db54cd307869e7b5aa6471454c1f8551 (diff) | |
| download | fml8-f06d8a9aba0dccd3a5f931f0c35ba468ff64f84e.tar.gz fml8-f06d8a9aba0dccd3a5f931f0c35ba468ff64f84e.tar.bz2 fml8-f06d8a9aba0dccd3a5f931f0c35ba468ff64f84e.zip | |
bug fix duplication check pattern.
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/MTAControl/Procmail.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fml/lib/FML/MTAControl/Procmail.pm b/fml/lib/FML/MTAControl/Procmail.pm index 6ed07efe..0645bdca 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.11 2003/03/28 10:32:22 fukachan Exp $ +# $FML: Procmail.pm,v 1.12 2003/08/29 15:34:05 fukachan Exp $ # package FML::MTAControl::Procmail; @@ -133,6 +133,7 @@ sub procmail_find_key_in_alias_maps my ($self, $curproc, $params, $optargs) = @_; my $key = $optargs->{ key }; my $maps = $self->procmail_alias_maps($curproc, $optargs); + my $addr = sprintf("%s\@%s", $params->{ ml_name }, $params->{ ml_domain }); for my $map (@$maps) { print STDERR "scan key = $key, map = $map\n" if $debug; @@ -143,7 +144,7 @@ sub procmail_find_key_in_alias_maps if (defined $fh) { my $buf; while ($buf = <$fh>) { - return 1 if $buf =~ /^\*.*\.\*$key\@/; + return 1 if $buf =~ /ALIASES\s*$addr/; } $fh->close; } |