[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
}
}