X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FCollation%2FRelationshipStore.pm;h=3024f202903fa88e5575049d9d3c8034a67baa26;hb=46e1fe146d07f8325d488278a41dac4697539651;hp=314d0038a6208a228600f8eee861de5510cf5e84;hpb=d724f920fe6b200559742b3a6f0b12f2f6d87879;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Collation/RelationshipStore.pm b/lib/Text/Tradition/Collation/RelationshipStore.pm
index 314d003..3024f20 100644
--- a/lib/Text/Tradition/Collation/RelationshipStore.pm
+++ b/lib/Text/Tradition/Collation/RelationshipStore.pm
@@ -605,7 +605,8 @@ sub filter_collations {
 			$c->relations->_drop_collations( "$rdg" );
 		}
 		$anchor
-			? map { $c->add_relationship( $anchor, $_, { 'type' => 'collated' } ) } @need_collations
+			? map { $c->add_relationship( $anchor, $_, { 'type' => 'collated' } )
+						unless $c->get_relationship( $anchor, $_ ) } @need_collations
 			: warn "No anchor found at $r";
 	}
 }