--- perlindex-1.401/lib/Text/English.pm-	2005-04-10 12:31:22 +0400

+++ perlindex-1.401/lib/Text/English.pm	2005-07-17 05:49:05 +0400

@@ -5,8 +5,13 @@

 # Language        : CPerl

 package Text::English;

+$VERSION = '0.02';

-$VERSION = $VERSION = '0.01';

+require Exporter;

+@ISA = qw(Exporter);

+@EXPORT_OK = qw(stem);

+

+use strict;

 sub stem {

     my @parms = @_;

--- perlindex-1.401/perlindex.PL-	2005-07-17 05:49:05 +0400

+++ perlindex-1.401/perlindex.PL	2005-07-17 05:50:40 +0400

@@ -63,7 +63,7 @@ use Fcntl;

 use less 'time';

 use Getopt::Long;

 use File::Basename;

-use Text::English;

+use Text::English 0.02 qw(stem);

 use Config;

 # NDBM_File as LAST resort

@@ -110,17 +110,6 @@ if (eval 'require Term::ReadKey') {

   $BSD_STYLE= 0;

 }

-# # Let's look for a stemmer

-# eval "use Text::English;";

-# unless ($@) {

-#     $stemmer = \&Text::English::stem;

-# } else {

-#     eval "require 'Stem.pl';";

-#     unless ($@) {

-#         $stemmer = \&stem;

-#     }

-# }

-

 # In the following, perl variables are not expanded during extraction.

 print OUT <<'!NO!SUBS!';

@@ -132,7 +121,6 @@ if ($Config{'osname'} eq 'hpux') {

 if (exists $ENV{PAGER}) {

   $pager=$ENV{PAGER}

 }

-$stemmer = \&Text::English::stem;

 $opt_index   = '';                # make perl -w happy

 $opt_menu    = 1;

@@ -286,11 +274,7 @@ sub normalize {

     for $word (split ' ', $line ) {

         $word =~ s/^\d+//;

         next unless length($word) > 2;

-        if ($stemmer) {

-            push @result, &$stemmer($word);

-        } else {

-            push @result, $word;

-        }

+        push @result, stem($word);

     }

     @result;

 }