Support _check_debug options.

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

diff --git a/ZOOM.xs b/ZOOM.xs
index 96e0548..7e58189 100644 (file)
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,4 +1,4 @@
-/* $Id: ZOOM.xs,v 1.44 2006-11-28 16:47:19 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.46 2007-01-16 11:17:15 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -297,7 +297,7 @@ ZOOM_record_error(rec, cp, addinfo, diagset)
        const char* &diagset
        CODE:
                {
-               const char *ccp, *caddinfo, *cdset;
+               const char *ccp = "", *caddinfo = "", *cdset = "";
                RETVAL = ZOOM_record_error(rec, &ccp, &caddinfo, &cdset);
                cp = (char*) ccp;
                addinfo = (char*) caddinfo;
@@ -614,6 +614,10 @@ int
 ZOOM_connection_is_idle(cs)
        ZOOM_connection cs
 
+int
+ZOOM_connection_peek_event(cs)
+       ZOOM_connection cs
+
 
 # ----------------------------------------------------------------------------
 # What follows is the YAZ logging API.  This is not strictly part of