Csv-Helper: Fehlermeldung, wenn Header nicht erkannt wird (Multiplex-Dateien).

diff --git a/SL/Helper/Csv.pm b/SL/Helper/Csv.pm
index 43aaabb..08ed9f4 100644 (file)
--- a/SL/Helper/Csv.pm
+++ b/SL/Helper/Csv.pm
@@ -245,6 +245,14 @@ sub _parse_data {
     my $row = $self->_csv->getline($self->_io);
     if ($row) {
       my $header = $self->_header_by_row($row);
+      if (!$header) {
+        push @errors, [
+          0,
+          "Cannot get header for row. Maybe row name and datatype field not matching.",
+          0,
+          0];
+        last;
+      }
       my %hr;
       @hr{@{ $header }} = @$row;
       push @data, \%hr;