fix \N NULL skipping

[webpac2] / lib / WebPAC / Input / TSV.pm

diff --git a/lib/WebPAC/Input/TSV.pm b/lib/WebPAC/Input/TSV.pm
index 9fc8524..c4475a2 100644 (file)
--- a/lib/WebPAC/Input/TSV.pm
+++ b/lib/WebPAC/Input/TSV.pm
@@ -50,8 +50,8 @@ sub new {
 
                my $col = 'A';
                foreach my $v ( split(/\t/,$line) ) {
-                       next if $v eq '\N';
-                       $rec->{ $col++ } = Encode::decode_utf8( $v );
+                       $rec->{ $col } = Encode::decode_utf8( $v ) if $v ne '\N';
+                       $col++;
                }
 
                push @{ $self->{_rec} }, $rec;