From: Tara L Andrews <tla@mit.edu>
Date: Mon, 3 Oct 2011 11:48:41 +0000 (+0200)
Subject: changed interface for Tradition init
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2Fstemmatology.git;a=commitdiff_plain;h=3d79e2482917fea5ceb7c6b35d8935547b83934c

changed interface for Tradition init
---

diff --git a/lib/Text/Tradition/Analysis.pm b/lib/Text/Tradition/Analysis.pm
index 1de487f..bdae9a5 100644
--- a/lib/Text/Tradition/Analysis.pm
+++ b/lib/Text/Tradition/Analysis.pm
@@ -23,15 +23,10 @@ sub run_analysis {
 	my $svg;
 	my $variants = [];
 	
-	# Read in the file and stemma
-	my @lines;
-	open( INFILE, "$file" ) or die "Could not read $file";
-	binmode INFILE, ':utf8';
-	@lines = <INFILE>;
-	close INFILE;
-	
+	# Read in the file and stemma	
 	my $tradition = Text::Tradition->new( 
-		'Self' => join( '', @lines ),
+		'input'  => 'Self',
+		'file'   => $file,
 		'linear' => 1,
 		);
 	my $stemma = Text::Tradition::Stemma->new(