--- parser3/src/lib/memcached/pa_memcached.C	2012/06/17 21:19:03	1.6
+++ parser3/src/lib/memcached/pa_memcached.C	2023/09/26 20:49:08	1.12
@@ -1,13 +1,13 @@
 /** @file
 	Parser: memcached support impl.
-	Copyright (c) 2001-2012 Art. Lebedev Studio (http://www.artlebedev.com)
+	Copyright (c) 2001-2023 Art. Lebedev Studio (http://www.artlebedev.com)
 */
 
 #include "pa_config_includes.h"
 #include "pa_memcached.h"
 #include "ltdl.h"
 
-volatile const char * IDENT_PA_MEMCACHED_C="$Id: pa_memcached.C,v 1.6 2012/06/17 21:19:03 moko Exp $";
+volatile const char * IDENT_PA_MEMCACHED_C="$Id: pa_memcached.C,v 1.12 2023/09/26 20:49:08 moko Exp $";
 
 t_memcached f_memcached=0;
 t_memcached_create f_memcached_create;
@@ -19,6 +19,7 @@ t_memcached_servers_parse f_memcached_se
 t_memcached_version f_memcached_version;
 
 t_memcached_flush f_memcached_flush;
+t_memcached_quit f_memcached_quit;
 
 t_memcached_get f_memcached_get;
 t_memcached_delete f_memcached_delete;
@@ -39,9 +40,10 @@ t_memcached_result_flags f_memcached_res
 #define GLINK(name) f_##name=(t_##name)lt_dlsym(handle, #name);
 #define DLINK(name) GLINK(name) if(!f_##name) return "function " #name " was not found";
 		
+void pa_dlinit();
+
 static const char *dlink(const char *dlopen_file_spec) {
-	if(lt_dlinit())
-		return lt_dlerror();
+	pa_dlinit();
 
 	lt_dlhandle handle=lt_dlopen(dlopen_file_spec);
 
@@ -61,6 +63,7 @@ static const char *dlink(const char *dlo
 	DLINK(memcached_version);
 
 	DLINK(memcached_flush);
+	DLINK(memcached_quit);
 
 	DLINK(memcached_get);
 	DLINK(memcached_delete);