X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=typemap;h=4f005578648004f023fc98ae9906237a60f2ef86;hb=ae8156e99ebe3d3dd463625bc75851a82cac3d6e;hp=4aa32cb5d701136e14dbd04fb47c7400fcce24f8;hpb=b0dd79557412ca039daebfdeaccd0e1a28240b88;p=ZOOM-Perl-moved-to-github.git

diff --git a/typemap b/typemap
index 4aa32cb..4f00557 100644
--- 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