}
sub filter_mail {
- my @msglist = @_;
- my $msgcount = @msglist - 2; # don't count . and ..
+ my $msgcount = @_ - 2; # don't count . and ..
my $len = length($msgcount);
my @baton;
my $msg;
}
}
- foreach $msg (@msglist) {
+ for $msg (@_) {
($msg eq '.' or $msg eq '..') and next;
if ($printfilenames) {