From: Tara L Andrews <tla\@mit.edu>
Date: Mon, 16 Jan 2012 13:54:33 +0000 (+0100)
Subject: don't add an extra node if endrank == end->rank
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1b3b33a5366c738cab39c57a1f26679a876668e;p=scpubgit%2Fstemmatology.git

don't add an extra node if endrank == end->rank
---

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index 6891065..85c2360 100644
--- a/lib/Text/Tradition/Collation.pm
+++ b/lib/Text/Tradition/Collation.pm
@@ -362,6 +362,7 @@ sub as_dot {
 	}
 	if( defined $endrank ) {
 		return if $endrank < 0;
+		$endrank = undef if $endrank == $self->end->rank;
 	}
 	
     # TODO consider making some of these things configurable