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

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Thu Dec 6 15:45:01 2001


User:      jon
Date:      2001-12-06 20:44:02 GMT
Modified:  lib/Vend Search.pm
Log:
Fix what I'm pretty sure has to be two syntax errors, although I don't
have a test to exercise this at the moment.

Revision  Changes    Path
2.2       +4 -4      interchange/lib/Vend/Search.pm


rev 2.2, prev_rev 2.1
Index: Search.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Search.pm,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -u -r2.1 -r2.2
--- Search.pm	2001/11/26 18:34:02	2.1
+++ Search.pm	2001/12/06 20:44:02	2.2
@@ -1,6 +1,6 @@
 # Vend::Search - Base class for search engines
 #
-# $Id: Search.pm,v 2.1 2001/11/26 18:34:02 mheins Exp $
+# $Id: Search.pm,v 2.2 2001/12/06 20:44:02 jon Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -21,7 +21,7 @@
 
 package Vend::Search;
 
-$VERSION = substr(q$Revision: 2.1 $, 10);
+$VERSION = substr(q$Revision: 2.2 $, 10);
 
 use strict;
 use vars qw($VERSION);
@@ -622,14 +622,14 @@
 				$col =~ s/[^\d,.]//g;
 			$code .= <<EOF;
 my \$addl = join " ", \@\$line[$col];
-push \@\$line .= \$addl;
+push \@\$line, \$addl;
 EOF
 			}
 			else {
 				$wild_card = 1;
 				$code .= <<EOF;
 my \$addl = join " ", \@\$line;
-push \@\$line .= \$addl;
+push \@\$line, \$addl;
 EOF
 			}
 		}