From cf7450d318cea8ee3de26c3c3feac17ec03b165d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 14 Sep 2013 14:55:15 +0200
Subject: [PATCH] support tables with different number of columns (NUMTAG)

---
 csv2tsv.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ) ) {
-- 
2.20.1