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

[scpubgit/stemmatology.git] / lib / Text / Tradition / Collation.pm

diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm
index 6891065..85c2360 100644 (file)
--- 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