add English morph analysis; test for lurking debug statements

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

diff --git a/lib/Text/Tradition/Language/French.pm b/lib/Text/Tradition/Language/French.pm
index 780b9de..6847354 100644 (file)
--- a/lib/Text/Tradition/Language/French.pm
+++ b/lib/Text/Tradition/Language/French.pm
@@ -1,5 +1,7 @@
 package Text::Tradition::Language::French;
 
+use strict;
+use warnings;
 use Encode qw/ encode_utf8 decode_utf8 /;
 use IPC::Run qw/ run /;
 use Lingua::TagSet::Multext;
@@ -157,7 +159,6 @@ sub reading_lookup {
 
 sub _lemmatize_sequence {
        my( $replace, @path ) = @_;
-       $DB::single = 1 if $replace;
        my $tagresult = _treetag_string( _text_from_path( 1, @path ) );
        if( $tagresult ) {
                # Map the tagged words onto the original readings, splitting 
@@ -182,8 +183,7 @@ sub _lemmatize_sequence {
                                $curr_rdg = shift @path;
                        }
                        unless( $curr_rdg ) {
-                               warn "Ran out of readings in sequence for " . $wit->sigil
-                                       . " at $lexeme";
+                               warn "Ran out of readings in sequence at $lexeme";
                                last;
                        }
                        my $curr_rdg_text = $curr_rdg->has_normal_form