X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=ZOOM.xs;h=885db0e762dc45f400c0de7139e18ae68981e7b7;hb=e28476c2caddb588f2e2f038d0fcefaea2243421;hp=673b02580912a3e7b2349a7cf6b29e6b3aba27d9;hpb=c8fb970de6273fa0cb034cd6cb706734d5a7dafd;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index 673b025..885db0e 100644
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,10 +1,11 @@
-/* $Id: ZOOM.xs,v 1.47 2007-02-22 20:37:47 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.48 2007-09-14 10:33:16 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
 
 #include <yaz/zoom.h>
+#include <yaz/diagsrw.h>
 #include <yaz/xmalloc.h>
 
 /* Used by the *_setl() functions */
@@ -204,6 +205,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