fix morphology lookup sub name

[scpubgit/stemmatology.git] / lib / Text / Tradition / Language / Latin.pm

diff --git a/lib/Text/Tradition/Language/Latin.pm b/lib/Text/Tradition/Language/Latin.pm
index 5643351..df87505 100644 (file)
--- a/lib/Text/Tradition/Language/Latin.pm
+++ b/lib/Text/Tradition/Language/Latin.pm
@@ -140,7 +140,7 @@ sub morphology_tags {
                _morph_connect();
                return unless $morph;
                # Simple morph DB lookup, and return the results.
-               my $result = $morph->lookup( $orig );
+               my $result = $morph->lexicon_lookup( $orig );
                return map { _wordform_from_row( $_ ) } @{$result->{'objects'}};
        }
        
@@ -158,4 +158,4 @@ sub _wordform_from_row {
        return $wf;
 }
        
-1;
\ No newline at end of file
+1;