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

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