Revision d161c66c
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
| SL/Helper/Csv.pm | ||
|---|---|---|
| 229 | 229 |
|
| 230 | 230 |
# initialize lookup hash if not already done |
| 231 | 231 |
if ($self->is_multiplexed && ! defined $self->_row_header ) {
|
| 232 |
$self->_row_header({ pairwise { $a->{row_ident} => $b } @{ $self->profile }, @{ $self->header } });
|
|
| 232 |
$self->_row_header({ pairwise { no warnings 'once'; $a->{row_ident} => $b } @{ $self->profile }, @{ $self->header } });
|
|
| 233 | 233 |
} |
| 234 | 234 |
|
| 235 | 235 |
if ($self->is_multiplexed) {
|
Auch abrufbar als: Unified diff
Warnungen gefixt.