From: Tara L Andrews Date: Sun, 24 Jun 2012 13:33:24 +0000 (+0200) Subject: refrain from recording normal form in graphml if it is unchanged X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=18c64d55b44b98d29437f1386de78242b6cf43b5;p=scpubgit%2Fstemmatology.git refrain from recording normal form in graphml if it is unchanged --- diff --git a/lib/Text/Tradition/Collation.pm b/lib/Text/Tradition/Collation.pm index d500390..a817385 100644 --- a/lib/Text/Tradition/Collation.pm +++ b/lib/Text/Tradition/Collation.pm @@ -1095,6 +1095,8 @@ sub as_graphml { # serialize them. Otherwise set nval to undef so that the # key is excluded from this reading. $nval = $nval ? $n->_serialize_lexemes : undef; + } elsif( $d eq 'normal_form' && $n->normal_form eq $n->text ) { + $nval = undef; } if( $rankoffset && $d eq 'rank' && $n ne $self->start ) { # Adjust the ranks within the subgraph.