search_PQF name corrected

diff --git a/perl/IDZebra_wrap.c b/perl/IDZebra_wrap.c
index d5b5965..b94dff4 100644 (file)
--- a/perl/IDZebra_wrap.c
+++ b/perl/IDZebra_wrap.c
@@ -212,7 +212,7 @@ SWIG_TypeClientData(swig_type_info *ti, void *clientdata) {
  * perl5.swg
  *
  * Perl5 runtime library
- * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.1 2002-11-15 21:26:00 adam Exp $
+ * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.2 2002-11-16 00:17:57 pop Exp $
  * ----------------------------------------------------------------------------- */
 
 #define SWIGPERL

diff --git a/perl/lib/IDZebra.pm b/perl/lib/IDZebra.pm
index 09065cd..83b5bc3 100644 (file)
--- a/perl/lib/IDZebra.pm
+++ b/perl/lib/IDZebra.pm
@@ -68,7 +68,7 @@ package IDZebra;
 *delete_record = *IDZebrac::delete_record;
 *begin_read = *IDZebrac::begin_read;
 *end_read = *IDZebrac::end_read;
-*search_pqf = *IDZebrac::search_pqf;
+*search_PQF = *IDZebrac::search_PQF;
 *admin_start = *IDZebrac::admin_start;
 *admin_shutdown = *IDZebrac::admin_shutdown;
 *nmem_create = *IDZebrac::nmem_create;