X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FCollation.pm;h=a29dacf4132a0dbb69e61906d1aa8a5ba0e3da37;hb=002e36002a90da00d2fab1e72a0954549dd28dd7;hp=3f62b11c6f2ff9a982571de8cdafabb4bc53d209;hpb=dee290dfd96b124754da5a6f93ac24a79eb4da03;p=scpubgit%2Fstemmatology.git

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index 3f62b11..a29dacf 100644
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -1806,7 +1806,7 @@ sub _common_in_path {
 				if( $all_seen{$p->id} && $all_seen{$p->id} ne 'r1' ) {
 					# print STDERR "Path candidate $p from $lc\n";
 					push( @candidates, $p );
-				} else {
+				} elsif( !$all_seen{$p->id} ) {
 					$all_seen{$p->id} = 'r1';
 					push( @new_lc1, $p );
 				}
@@ -1817,7 +1817,7 @@ sub _common_in_path {
 				if( $all_seen{$p->id} && $all_seen{$p->id} ne 'r2' ) {
 					# print STDERR "Path candidate $p from $lc\n";
 					push( @candidates, $p );
-				} else {
+				} elsif( !$all_seen{$p->id} ) {
 					$all_seen{$p->id} = 'r2';
 					push( @new_lc2, $p );
 				}