Minor fix to a comment line
authorBen Ostrowsky <ben@esilibrary.com>
Fri, 6 Nov 2009 16:51:51 +0000 (16:51 +0000)
committerGalen Charlton <gmc@esilibrary.com>
Mon, 16 Jul 2012 16:08:43 +0000 (12:08 -0400)
git-svn-id: svn://nox.esilibrary.com/migration-tools@637 eee7cc8d-164e-4af6-8e1b-092a69004917

unicorn/unicorn_patrons_to_tsv.pl

index 047ba97..3f3d5e7 100755 (executable)
@@ -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";