X-Git-Url: http://git.rot13.org/?p=crolist2marc;a=blobdiff_plain;f=csv2tsv.pl;h=6ace7eb4a90757b7996f6c76a74afffe29683ab0;hp=fdbd8486b35960ca49d5cd83bece3fc68c7e5c0c;hb=8490e532bc5919fac2411f95d06b64aecdfd31b8;hpb=9da83a6114ad6f08db6e1644324228a51b7ecd17

diff --git a/csv2tsv.pl b/csv2tsv.pl
index fdbd848..6ace7eb 100755
--- a/csv2tsv.pl
+++ b/csv2tsv.pl
@@ -23,7 +23,7 @@ while(my $line = <>) {
 	if ( $#v > $cols ) {
 #warn "FIX $#v $cols", dump(@v);
 		my @l2 = splice( @v, -2 ); # keep last two
-		my @fix = splice( @v, 6 );
+		my @fix = splice( @v, $cols - 3 );
 warn "XXX before ",dump( @fix );
 		my ( $k, $v ) = ( shift(@fix), '' );
 		while ( @fix && (( length($k) + length($fix[0]) ) < 8 ) ) {