stripping .s in the middle of stuff ... like "u.s.a."

git-svn-id: svn://svn.open-ils.org/ILS/trunk@5724 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm
index 26b0f0d..e6438ed 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/fts.pm
@@ -19,6 +19,7 @@
                $self = bless {} => $self;
 
                $term =~ s/(\pM+)//gos;
+               $term =~ s/(\b\.\b)//gos;
                $self->decompose($term);
 
                my $newterm = '';