Revision 61a56da0
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Helper/Csv.pm | ||
|---|---|---|
| 120 | 120 |
|
| 121 | 121 |
while (1) {
|
| 122 | 122 |
my $row = $self->_csv->getline($self->_io); |
| 123 |
last if $self->_csv->eof; |
|
| 124 | 123 |
if ($row) {
|
| 125 | 124 |
my %hr; |
| 126 | 125 |
@hr{@{ $self->header }} = @$row;
|
| 127 | 126 |
push @data, \%hr; |
| 128 | 127 |
} else {
|
| 128 |
last if $self->_csv->eof; |
|
| 129 | 129 |
push @errors, [ |
| 130 | 130 |
$self->_csv->error_input, |
| 131 | 131 |
$self->_csv->error_diag, |
| 132 | 132 |
$self->_io->input_line_number, |
| 133 | 133 |
]; |
| 134 | 134 |
} |
| 135 |
last if $self->_csv->eof; |
|
| 135 | 136 |
} |
| 136 | 137 |
|
| 137 | 138 |
$self->_data(\@data); |
Auch abrufbar als: Unified diff
Bugfix: Kein newline am Ende der Datei verschluckte die letzte Zeile.