diff options
| author | fukachan <fukachan> | 2003-01-26 03:14:17 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-01-26 03:14:17 +0000 |
| commit | bb7c2298cf148d193156f990941aaa6ff682bbf8 (patch) | |
| tree | 351cc6389c0fa9ca784551e61222731b4c7159cc /fml/lib | |
| parent | 022982faa5cb64bc953ee9298f88b9ea5957eda2 (diff) | |
| download | fml8-bb7c2298cf148d193156f990941aaa6ff682bbf8.tar.gz fml8-bb7c2298cf148d193156f990941aaa6ff682bbf8.tar.bz2 fml8-bb7c2298cf148d193156f990941aaa6ff682bbf8.zip | |
FNF: not use $_
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Command/Admin/list.pm | 12 | ||||
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 6 |
2 files changed, 9 insertions, 9 deletions
diff --git a/fml/lib/FML/Command/Admin/list.pm b/fml/lib/FML/Command/Admin/list.pm index e1c0e891..eb20d6a2 100644 --- a/fml/lib/FML/Command/Admin/list.pm +++ b/fml/lib/FML/Command/Admin/list.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: list.pm,v 1.10 2002/12/20 03:40:12 fukachan Exp $ +# $FML: list.pm,v 1.11 2003/01/25 12:48:38 fukachan Exp $ # package FML::Command::Admin::list; @@ -81,18 +81,18 @@ sub _show_list my $config = $curproc->{ config }; my $maplist = undef; - for (@$options) { - if (/^recipient|active/i) { + for my $option (@$options) { + if ($option =~ /^recipient|active/i) { $maplist = $config->get_as_array_ref( 'recipient_maps' ); } - elsif (/^member/i) { + elsif ($optoin =~ /^member/i) { $maplist = $config->get_as_array_ref( 'member_maps' ); } - elsif (/^adminmember|^admin_member/i) { + elsif ($option =~ /^adminmember|^admin_member/i) { $maplist = $config->get_as_array_ref( 'admin_member_maps' ); } else { - LogWarn("list: unknown type $_"); + LogWarn("list: unknown type $option"); } } diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index 823e9c3d..8d50a951 100644 --- a/fml/lib/FML/Process/Utils.pm +++ b/fml/lib/FML/Process/Utils.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: Utils.pm,v 1.53 2003/01/11 16:05:20 fukachan Exp $ +# $FML: Utils.pm,v 1.54 2003/01/25 09:13:35 fukachan Exp $ # package FML::Process::Utils; @@ -864,8 +864,8 @@ sub __get_virtual_maps if (defined $main_cf->{ virtual_maps } && $main_cf->{ virtual_maps }) { my (@r) = (); my (@maps) = split(/\s+/, $main_cf->{ virtual_maps }); - for (@maps) { - if (-f $_) { push(@r, $_);} + for my $map (@maps) { + if (-f $map) { push(@r, $map);} } return \@r; } |