make French morph tagging work; dependent on Flemm and TreeTagger

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

diff --git a/lib/Text/Tradition/Collation/Reading/WordForm.pm b/lib/Text/Tradition/Collation/Reading/WordForm.pm
index a56cd2b..8f519f9 100644 (file)
--- a/lib/Text/Tradition/Collation/Reading/WordForm.pm
+++ b/lib/Text/Tradition/Collation/Reading/WordForm.pm
@@ -75,7 +75,7 @@ around BUILDARGS => sub {
 sub _stringify {
        my $self = shift;
        return sprintf( "%s//%s//%s", $self->language, $self->lemma,
-               join( '', $self->morphology ) );
+               join( '|', @{$self->morphology} ) );
 }
 
 no Moose;