X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=ZOOM.xs;h=f3b576cbc2471063361789d77948f7bf9c58f151;hb=4299ae7c151a755d9739743c3a6ecf4245e26c1a;hp=673b02580912a3e7b2349a7cf6b29e6b3aba27d9;hpb=c1f2a1e8ca45c6770e222e4902463a31fbfe3c82;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index 673b025..f3b576c 100644
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,11 +1,14 @@
-/* $Id: ZOOM.xs,v 1.47 2007-02-22 20:37:47 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.50 2007-11-19 12:57:16 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
 
 #include <yaz/zoom.h>
+#include <yaz/diagsrw.h>
 #include <yaz/xmalloc.h>
+#include <yaz/log.h>
+#include <yaz/yaz-version.h>
 
 /* Used by the *_setl() functions */
 typedef char opaquechar;
@@ -204,6 +207,14 @@ const char *
 ZOOM_diag_str(error)
 	int error
 
+const char *
+ZOOM_diag_srw_str(error)
+	int error
+	CODE:
+		RETVAL = yaz_diag_srw_str(error);
+	OUTPUT:
+		RETVAL
+
 ZOOM_resultset
 ZOOM_connection_search(arg0, q)
 	ZOOM_connection	arg0
@@ -553,7 +564,6 @@ ZOOM_event(conns)
 	INIT:
 		SV *realconns;
 		I32 n, i;
-		int res;
 		ZOOM_connection *cs;
 	CODE:
 		/*printf("* in ZOOM_event(%p)\n", conns);*/