X-Git-Url: http://git.rot13.org/?p=webpac2;a=blobdiff_plain;f=lib%2FWebPAC%2FInput%2FTSV.pm;h=c4475a2e2415261b42c3d3c6afe19a1615090fe9;hp=9fc8524f97504f73825d794c24fc901fdf64c852;hb=55cd8b352c1b172895315c3394548a8bdd0d0280;hpb=ddea8693c54b02167e574a3ee6ce76c6c2eb5011

diff --git a/lib/WebPAC/Input/TSV.pm b/lib/WebPAC/Input/TSV.pm
index 9fc8524..c4475a2 100644
--- 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;