Add explicit "#include <yaz/log.h>" in the hope of preventing

[ZOOM-Perl-moved-to-github.git] / ZOOM.xs

diff --git a/ZOOM.xs b/ZOOM.xs
index 673b025..4d80dba 100644 (file)
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,11 +1,13 @@
-/* $Id: ZOOM.xs,v 1.47 2007-02-22 20:37:47 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.49 2007-10-29 12:06:57 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>
 
 /* Used by the *_setl() functions */
 typedef char opaquechar;
@@ -204,6 +206,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