X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=unicorn%2Funicorn_patrons_to_tsv.pl;h=3f3d5e721e460b46abc5da3cb882b9ab4c15f730;hp=047ba97ef7846971e3419995c75d875b897587b7;hb=6d6e50c1fc61268dc4b31f5de26e9b0fea725a0e;hpb=efe0e292db8ce0bd60ee800c21eec091698ca5bf

diff --git a/unicorn/unicorn_patrons_to_tsv.pl b/unicorn/unicorn_patrons_to_tsv.pl
index 047ba97..3f3d5e7 100755
--- a/unicorn/unicorn_patrons_to_tsv.pl
+++ b/unicorn/unicorn_patrons_to_tsv.pl
@@ -61,7 +61,7 @@ while (<>) {
 		next;
 	}
 
-	# Is this line the beginning of a block of data (typically an address or a note)?
+	# Is this line the end of a block of data (typically an address or a note)?
 	if ( /^\.(.*?)_END.$/ ) {
 		if ("$1." ne $section) {
 			print STDERR "Error in record $serial, line $line (input line $.): got an end-of-$1 but I thought I was in a $section block!\n";