--- svn-tsv.pl	2009/07/25 10:55:35	7
+++ svn-tsv.pl	2009/07/25 16:50:09	9
@@ -10,6 +10,7 @@
 $repo = "file://$repo" if -e $repo;
 
 my $debug = 0;
+my $tsv = 0;
 
 my $from_rev = 1;
 my $to_rev = 'HEAD';
@@ -75,7 +76,11 @@
 	}
 	close(DIFF);
 
-	print $repo, '@', $rev, 
-		"\trepo\t$repo\trev\t$rev\tdate\t$date\tfiles\t$files\tadd\t$add\tdel\t$del\tmessage\t$msg\n";
+	if ( $tsv ) {
+		print $repo, '@', $rev, 
+			"\trepo\t$repo\trev\t$rev\tdate\t$date\tfiles\t$files\tadd\t$add\tdel\t$del\tmessage\t$msg\n";
+	} else {
+		print "$repo\t$rev\t$date\t$files\t$add\t$del\t$msg\n";
+	}
 
 }