From: Tara L Andrews <tla\@mit.edu>
Date: Tue, 31 Jan 2012 13:39:34 +0000 (+0100)
Subject: no escape_char either when using tab separation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bba696c66813d8225e17a1bf0b5c443473e6da9c;p=scpubgit%2Fstemmatology.git

no escape_char either when using tab separation
---

diff --git a/lib/Text/Tradition/Parser/Tabular.pm b/lib/Text/Tradition/Parser/Tabular.pm
index cdd1804..40cf668 100644
--- a/lib/Text/Tradition/Parser/Tabular.pm
+++ b/lib/Text/Tradition/Parser/Tabular.pm
@@ -120,6 +120,7 @@ sub parse {
     if( $csv_options->{'sep_char'} eq "\t" ) {
     	# If it is really tab separated, nothing is an escape char.
     	$csv_options->{'quote_char'} = undef;
+    	$csv_options->{'escape_char'} = undef;
     }
     my $csv = Text::CSV_XS->new( $csv_options );
     
@@ -183,6 +184,7 @@ sub parse {
             if( $word ) {
                 my $reading = $nodes->{$word};
                 my $wit = $witnesses[$w];
+                $DB::single = 1 unless $wit;
                 push( @{$wit->path}, $reading );
             } # else skip it for empty readings.
         }