From: mike <mike>
Date: Fri, 14 Sep 2007 10:33:16 +0000 (+0000)
Subject: Add ZOOM_diag_srw_str
X-Git-Tag: cpan_1_22~33
X-Git-Url: http://lists.indexdata.com/cgi-bin?a=commitdiff_plain;h=e28476c2caddb588f2e2f038d0fcefaea2243421;p=ZOOM-Perl-moved-to-github.git

Add ZOOM_diag_srw_str
---

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