X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=dbf2tsv;fp=dbf2tsv;h=1ebac798fc3ec615d572b3df0d8ce8c88cc2f2ab;hp=b6974c6034cc6ea054a11760d3782f69c376525b;hb=6c655ffaf2ad51aa14259ce2b1ce2d6b3357a0c3;hpb=f294d4e084fa70f1d7c996d7f679490419249ddd

diff --git a/dbf2tsv b/dbf2tsv
index b6974c6..1ebac79 100755
--- a/dbf2tsv
+++ b/dbf2tsv
@@ -27,7 +27,7 @@ my $table = new XBase $in or die XBase->errstr;
 # get list of field names
 my @names = $table->field_names;
 
-# dump PATRONID, SURNAME, FIRSTNAME
+# print a header line with field names
 print OUT join ("\t", @names) . "\n";
 
 sub clean {