Explicitly print number of records found.

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

diff --git a/typemap b/typemap
index 4aa32cb..4f00557 100644 (file)
--- a/typemap
+++ b/typemap
@@ -1,3 +1,5 @@
+# $Id: typemap,v 1.3 2005-10-11 15:40:14 mike Exp $
+
 ZOOM_connection                                        T_PTROBJ
 ZOOM_connection *                              T_PTROBJ
 ZOOM_options                                   T_PTROBJ
@@ -18,7 +20,12 @@ __extension__ extern unsigned long long int  T_PTROBJ
 __locale_t                                     T_PTROBJ
 char * __const *                               T_PTROBJ
 const __sigset_t *                             T_PTROBJ
-const char *                                   T_PTROBJ
+# The next line was originally autogenerated by h2xs, which gave the
+# type of "const char *" as T_PTROBJ -- a pointer to an opaque object.
+# This prevented the return value of ZOOM_record_get() from being
+# translated into a Perl string.  Instead, I am using T_PV, which
+# works properly.
+const char *                                   T_PV
 const char **                                  T_PTROBJ
 const struct timespec *                                T_PTROBJ
 div_t                                          T_OPAQUE_STRUCT