From 8339e09fa0aff2aa51f6ea3c7bc069f44ab5929a Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Wed, 28 Jul 2004 08:05:58 +0000 Subject: [PATCH] Make a copy instead of pointer for member: base --- perl/zebra_perl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 1.7.10.4