diff options
| author | fukachan <fukachan> | 2006-02-22 12:16:31 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-02-22 12:16:31 +0000 |
| commit | 6e3f8eec4dffdd74faf5af2fd7cf14be1cc90c90 (patch) | |
| tree | 0aa08630b657af068c108d19c77c5260291d632c /fml | |
| parent | fa12939c2d1af69872b5f404ea9168a789ef77af (diff) | |
| download | fml8-6e3f8eec4dffdd74faf5af2fd7cf14be1cc90c90.tar.gz fml8-6e3f8eec4dffdd74faf5af2fd7cf14be1cc90c90.tar.bz2 fml8-6e3f8eec4dffdd74faf5af2fd7cf14be1cc90c90.zip | |
consider the case that plural addresses are matched.
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/User/Info.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/fml/lib/FML/User/Info.pm b/fml/lib/FML/User/Info.pm index 98521817..6bacc63d 100644 --- a/fml/lib/FML/User/Info.pm +++ b/fml/lib/FML/User/Info.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: Info.pm,v 1.6 2006/02/18 08:39:20 fukachan Exp $ +# $FML: Info.pm,v 1.7 2006/02/18 09:25:32 fukachan Exp $ # package FML::User::Info; @@ -79,15 +79,13 @@ sub set_header_info # gecos General information about the user. # 1. GECOS INFORMATION - # XXX-TODO: correct logic if multiple matched ? use Mail::Address; my (@addr_list) = Mail::Address->parse($from); for my $_addr (@addr_list) { + my $addr = $_addr->address(); my $gecos = $_addr->comment(); - if ($gecos) { $self->set_gecos($address, $gecos);} + if ($gecos) { $self->set_gecos($addr, $gecos);} } - - # 2. } |