Revision d161c66c
Von Bernd Bleßmann vor fast 11 Jahren hinzugefügt
SL/Helper/Csv/Dispatcher.pm | ||
---|---|---|
59 | 59 |
|
60 | 60 |
# initialize lookup hash if not already done |
61 | 61 |
if ($self->_csv->is_multiplexed && ! defined $self->_row_spec ) { |
62 |
$self->_row_spec({ pairwise { $a->{row_ident} => $b } @{ $self->_csv->profile }, @{ $self->_specs } }); |
|
62 |
$self->_row_spec({ pairwise { no warnings 'once'; $a->{row_ident} => $b } @{ $self->_csv->profile }, @{ $self->_specs } });
|
|
63 | 63 |
} |
64 | 64 |
|
65 | 65 |
if ($self->_csv->is_multiplexed) { |
Auch abrufbar als: Unified diff
Warnungen gefixt.