From: Tara L Andrews <tla@mit.edu>
Date: Wed, 18 Apr 2012 19:15:24 +0000 (+0200)
Subject: fix bug in transposition validation
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6936deaa42cead642f7e4f3dc1a4e9c01fb8027;p=scpubgit%2Fstemmatology.git

fix bug in transposition validation
---

diff --git a/lib/Text/Tradition/Collation/RelationshipStore.pm b/lib/Text/Tradition/Collation/RelationshipStore.pm
index c5694ad..dc2fe1b 100644
--- a/lib/Text/Tradition/Collation/RelationshipStore.pm
+++ b/lib/Text/Tradition/Collation/RelationshipStore.pm
@@ -382,10 +382,10 @@ sub relationship_valid {
 				return ( 0, "Readings both occur in witness $w" ) 
 					if $rel eq 'transposition';
 				return ( 1, "ok" ) if $rel eq 'repetition';
+			}
 		}
 		return $rel eq 'transposition' ? ( 1, "ok" )
 			: ( 0, "Readings occur only in distinct witnesses" );
-		}
 	} else {
 		# Check that linking the source and target in a relationship won't lead
 		# to a path loop for any witness.  If they have the same rank then fine.