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

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2001-11-21 18:29:04 GMT
Modified:  lib/Vend Tag: STABLE_4_8-branch DbSearch.pm
Log:
Remove orphaned bit of code (merge from 4.9).

Revision  Changes    Path
No                   revision



No                   revision



2.0.2.3   +2 -3      interchange/lib/Vend/DbSearch.pm


rev 2.0.2.3, prev_rev 2.0.2.2
Index: DbSearch.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/DbSearch.pm,v
retrieving revision 2.0.2.2
retrieving revision 2.0.2.3
diff -u -u -r2.0.2.2 -r2.0.2.3
--- DbSearch.pm	2001/10/18 02:12:32	2.0.2.2
+++ DbSearch.pm	2001/11/21 18:29:04	2.0.2.3
@@ -1,6 +1,6 @@
 # Vend::DbSearch - Search indexes with Interchange
 #
-# $Id: DbSearch.pm,v 2.0.2.2 2001/10/18 02:12:32 mheins Exp $
+# $Id: DbSearch.pm,v 2.0.2.3 2001/11/21 18:29:04 jon Exp $
 #
 # Adapted for use with Interchange from Search::TextSearch
 #
@@ -26,7 +26,7 @@
 
 @ISA = qw(Vend::Search);
 
-$VERSION = substr(q$Revision: 2.0.2.2 $, 10);
+$VERSION = substr(q$Revision: 2.0.2.3 $, 10);
 
 use Search::Dict;
 use strict;
@@ -352,7 +352,6 @@
 		$s->{mv_results} = \@out;
 	}
 	elsif($s->{mv_return_reference} eq 'LIST') {
-		my $col = scalar @{$s->{mv_return_fields}};
 		@out = map { join $s->{mv_return_delim}, @$_ } @out;
 		$s->{mv_results} = join $s->{mv_record_delim}, @out;
 	}