Open a dir, so close a dir not a filehandle

This commit is contained in:
Sandro Cazzaniga 2012-07-12 12:10:44 +00:00
parent 66d228d1da
commit 8ecd768071

View File

@ -56,7 +56,7 @@ sub get {
@notif = grep /^\d{8}${fns}${uid}${fns}${tmp}${fns}?\S*\.xml$/,
readdir(D);
}
close D;
closedir D;
my $files;
foreach my $file (@notif) {
unless ( open F, $self->{dirName} . "/$file" ) {