S:C:File: Import (scanner): Debug-Warnung, wenn Verzeichnis nicht geöffnet werden...

[mfinanz.git] / SL / Controller / File.pm

diff --git a/SL/Controller/File.pm b/SL/Controller/File.pm
index a01e661b7b3c048d658dcad7090310176fd13c9f..94581102ca15bbab663a2990b88490bd2f393a32 100644 (file)
--- a/SL/Controller/File.pm
+++ b/SL/Controller/File.pm
@@ -408,7 +408,7 @@ sub _get_from_import {
   my $language = $::lx_office_conf{system}->{language};
   my $timezone = $::locale->get_local_time_zone()->name;
   if (opendir my $dir, $path) {
   my $language = $::lx_office_conf{system}->{language};
   my $timezone = $::locale->get_local_time_zone()->name;
   if (opendir my $dir, $path) {

-    my @files = ( readdir $dir);
+    my @files = (readdir $dir);

     foreach my $file ( @files) {
       next if (($file eq '.') || ($file eq '..'));
       $file = Encode::decode('utf-8', $file);
     foreach my $file ( @files) {
       next if (($file eq '.') || ($file eq '..'));
       $file = Encode::decode('utf-8', $file);


@@ -430,7 +430,12 @@ sub _get_from_import {
       };
 
     }
       };
 
     }

+    closedir($dir);
+
+  } else {
+    $::lxdebug->message(LXDebug::WARN(), "SL::File::_get_from_import opendir failed to open dir " . $path);

   }
   }

+

   return @foundfiles;
 }
 
   return @foundfiles;
 }