Keine undefinierten Werte als Referenzen nutzen (passiert im Fehlerfall)

diff --git a/SL/Controller/CsvImport.pm b/SL/Controller/CsvImport.pm
index 6556c5b..e95b171 100644 (file)
--- a/SL/Controller/CsvImport.pm
+++ b/SL/Controller/CsvImport.pm
@@ -151,7 +151,7 @@ sub test_and_import {
   $worker->run;
   $worker->save_objects if !$params{test};
 
-  $self->num_importable(scalar grep { !$_ } map { scalar @{ $_->{errors} } } @{ $self->data });
+  $self->num_importable(scalar grep { !$_ } map { scalar @{ $_->{errors} } } @{ $self->data || [] });
   $self->import_status($params{test} ? 'tested' : 'imported');
 
   flash('info', $::locale->text('Objects have been imported.')) if !$params{test};