| Subject: | map function failure |
| Date: | Tue, 9 Jul 2013 16:49:30 +0100 |
| To: | bug-Maildir-Lite [...] rt.cpan.org |
| From: | nick robinson <nick [...] online-optical.com> |
Hi
I found the following line of code was not populating the @message array
line 565 of Lite.pm
@messages=map{ /^(\d[\w.:,_]+)$/ && -f "$path/$1"?$1:() } readdir(DIR);
i changed it to this which has worked
while (my $ffile = readdir(DIR))
{
if ($ffile =~ /^\d+/)
{
push @messages, $ffile;
}
}