From: Tara L Andrews <tla@mit.edu>
Date: Sat, 18 Jan 2014 17:56:40 +0000 (+0000)
Subject: fix test failure
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47cd4d1650cd41f2a6e6e899be52390f090f56f2;p=scpubgit%2Fstemmatology.git

fix test failure
---

diff --git a/base/lib/Text/Tradition/Collation.pm b/base/lib/Text/Tradition/Collation.pm
index 095f331..ce46556 100644
--- a/base/lib/Text/Tradition/Collation.pm
+++ b/base/lib/Text/Tradition/Collation.pm
@@ -635,10 +635,8 @@ sub duplicate_reading {
 	}
 	throw( "Cannot duplicate a meta-reading" )
 		if $r->is_meta;
-	my $ordered_req_wits = join( ',', sort @wits );
-	my $ordered_rdg_wits = join( ',', $r->witnesses );
 	throw( "Cannot join all witnesses to the new reading" )
-		if $ordered_req_wits eq $ordered_rdg_wits;
+		if scalar( @wits ) == scalar( $r->witnesses );
 
 	# Get all the reading attributes and duplicate them.	
 	my $rmeta = Text::Tradition::Collation::Reading->meta;