X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FText%2FTradition%2FCollation.pm;h=85c23603cd5a7e79ab8832532b3b7cfbb7fd0267;hb=f1b3b33a5366c738cab39c57a1f26679a876668e;hp=6891065725ef93c13c4340b3b6eb4ae7dee5bb75;hpb=b22576c6f952c20c58a01b4689ff1dac40b3f0bc;p=scpubgit%2Fstemmatology.git 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