From c953d2478c84635465d6acb50899eaaf03af1d17 Mon Sep 17 00:00:00 2001 From: Ben Ostrowsky Date: Wed, 16 Dec 2009 21:02:26 +0000 Subject: [PATCH] Fixed regex to handle lines that begin with a dot and something other than a capital letter (i.e., not a field label) git-svn-id: svn://nox.esilibrary.com/migration-tools@650 eee7cc8d-164e-4af6-8e1b-092a69004917 Signed-off-by: Galen Charlton --- unicorn/unicorn_to_tsv.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/unicorn/unicorn_to_tsv.pl b/unicorn/unicorn_to_tsv.pl index a478227..3af493f 100755 --- a/unicorn/unicorn_to_tsv.pl +++ b/unicorn/unicorn_to_tsv.pl @@ -53,7 +53,7 @@ while (<>) { # Looks like we've got some actual data! Let's store it. # FIXME: For large batches of data, we may run out of memory and should store this on disk. - if ( /^\.(.*?).\s+(\|a)?(.*)$/ ) { + if ( /^\.([A-Z]*?).\s+(\|a)?(.*)$/ ) { # Build the name of this field (taking note of whether we're in a named section of data) $field = ''; -- 1.7.2.5