[interchange-cvs] interchange - heins modified lib/Vend/Search.pm
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Oct 28 15:50:00 2002
User: heins
Date: 2002-10-28 20:46:30 GMT
Modified: lib/Vend Search.pm
Log:
Minor debug improvment.
Revision Changes Path
2.15 +4 -4 interchange/lib/Vend/Search.pm
rev 2.15, prev_rev 2.14
Index: Search.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Search.pm,v
retrieving revision 2.14
retrieving revision 2.15
diff -u -r2.14 -r2.15
--- Search.pm 18 Oct 2002 07:10:46 -0000 2.14
+++ Search.pm 28 Oct 2002 20:46:30 -0000 2.15
@@ -1,6 +1,6 @@
# Vend::Search - Base class for search engines
#
-# $Id: Search.pm,v 2.14 2002/10/18 07:10:46 mheins Exp $
+# $Id: Search.pm,v 2.15 2002/10/28 20:46:30 mheins Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -21,7 +21,7 @@
package Vend::Search;
-$VERSION = substr(q$Revision: 2.14 $, 10);
+$VERSION = substr(q$Revision: 2.15 $, 10);
use strict;
use vars qw($VERSION);
@@ -149,10 +149,10 @@
sub escape {
my($s, @text) = @_;
-#::logDebug( "text=@text");
+#::logDebug( "escaped text=" . ::uneval(\@text));
return @text if ! $s->{mv_all_chars}[0];
@text = map {quotemeta $_} @text;
-#::logDebug( "text=@text");
+#::logDebug( "escaped text=" . ::uneval(\@text));
return @text;
}