X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=unicorn%2Funicorn_to_tsv.pl;h=3af493f56667efdf18eda321502c74efd59174a2;hp=a47822708de9b26a7b2afe3343ef2d605689e990;hb=c953d2478c84635465d6acb50899eaaf03af1d17;hpb=8481659c9b7d2537dab3950ab52f186f6dc9dd5d

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 = '';