[interchange-cvs] interchange - jon modified lib/Vend/Glimpse.pm

[interchange-cvs at icdevgroup.org]

User:      jon
Date:      2004-08-21 22:47:23 GMT
Modified:  lib/Vend Glimpse.pm
Log:
Fix bug that caused mv_substring_match never to work. Glimpse only allows
setting substring or full word matches per search, not per word, so if any
word is flagged as a substring match, the whole search is. Otherwise, it's
a full word match.

Bug fixed and patch provided by Ethan Rowe <ethan at endpoint.com>. Thanks!

Revision  Changes    Path
2.12      +3 -3      interchange/lib/Vend/Glimpse.pm


rev 2.12, prev_rev 2.11
Index: Glimpse.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Glimpse.pm,v
retrieving revision 2.11
retrieving revision 2.12
diff -u -u -r2.11 -r2.12
--- Glimpse.pm	9 Aug 2004 18:00:43 -0000	2.11
+++ Glimpse.pm	21 Aug 2004 22:47:23 -0000	2.12
@@ -1,6 +1,6 @@
 # Vend::Glimpse - Search indexes with Glimpse
 #
-# $Id: Glimpse.pm,v 2.11 2004/08/09 18:00:43 jon Exp $
+# $Id: Glimpse.pm,v 2.12 2004/08/21 22:47:23 jon Exp $
 #
 # Adapted for use with Interchange from Search::Glimpse
 #
@@ -26,7 +26,7 @@
 require Vend::Search;
 @ISA = qw(Vend::Search);
 
-$VERSION = substr(q$Revision: 2.11 $, 10);
+$VERSION = substr(q$Revision: 2.12 $, 10);
 use strict;
 use Vend::File;
 use Vend::Util;
@@ -167,7 +167,7 @@
 	push(@cmd, "-F '$s->{mv_search_file}[0]'")
 		if defined $s->{mv_search_file}[0];
 
-	push(@cmd, '-w') unless $s->{mv_substring_match};
+	push @cmd, '-w' unless @{$s->{mv_substring_match}};
 	push(@cmd, '-O -X') if $s->{mv_return_file_name};
 	
 	if($s->{mv_return_file_name}) {