From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 28 Jul 2004 08:05:58 +0000 (+0000)
Subject: Make a copy instead of pointer for member: base
X-Git-Tag: ZEBRA.1.3.16~28
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=8339e09fa0aff2aa51f6ea3c7bc069f44ab5929a;p=idzebra-moved-to-github.git

Make a copy instead of pointer for member: base
---

diff --git a/perl/zebra_perl.c b/perl/zebra_perl.c
index 3024d4b..3143415 100644
--- a/perl/zebra_perl.c
+++ b/perl/zebra_perl.c
@@ -64,7 +64,7 @@ void record_retrieve(RetrievalObj *ro,
     res->errString = "";
   }
   res->position   = ro->records[i].position;
-  res->base       = ro->records[i].base;
+  res->base       = odr_strdup(stream, ro->records[i].base);
   res->format     = (char *) 
     yaz_z3950_oid_value_to_str(ro->records[i].format, CLASS_RECSYN); 
   res->buf        = buf;