#include <yaz/log.h>
#include <yaz/wrbuf.h>
#include <stdio.h>
+#include <unistd.h>
#include <stdlib.h>
#include <ctype.h>
#ifdef ASN_COMPILED
#include <yaz/ill.h>
#endif
-
+#ifndef sv_undef /* To fix the problem with Perl 5.6.0 */
+#define sv_undef PL_sv_undef
+#endif
typedef struct {
SV *handle;
hv_store(href, "HITS", 4, newSViv(0), 0);
hv_store(href, "DATABASES", 9, newRV( (SV*) aref), 0);
hv_store(href, "HANDLE", 6, zhandle->handle, 0);
+ hv_store(href, "PID", 3, newSViv(getpid()), 0);
query = zquery2pquery(rr->query);
if (query)
{
hv_store(href, "ERR_STR", 7, newSVpv("", 0), 0);
hv_store(href, "SUR_FLAG", 8, newSViv(0), 0);
hv_store(href, "HANDLE", 6, zhandle->handle, 0);
+ hv_store(href, "PID", 3, newSViv(getpid()), 0);
if (rr->comp)
{
composition = rr->comp;
/*oid_dotted = oid2dotted(rr->request_format_raw);
hv_store(href, "REQ_FORM", 8, newSVpv((char *)oid_dotted->buf, oid_dotted->pos), 0);*/
hv_store(href, "HITS", 4, newSViv(0), 0);
+ hv_store(href, "PID", 3, newSViv(getpid()), 0);
if (rr->comp)
{
composition = rr->comp;
hv_store(href, "ERR_CODE", 8, newSViv(0), 0);
hv_store(href, "PEER_NAME", 9, newSVpv(q->peer_name, 0), 0);
hv_store(href, "HANDLE", 6, newSVsv(&sv_undef), 0);
+ hv_store(href, "PID", 3, newSViv(getpid()), 0);
PUSHMARK(sp);