X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.xs;h=77697761e8563157dc65cc51ac495e608ace6943;hp=94decda46b1d8fe7c64a6256f6b7427f53f17f9a;hb=f684372e332957770d260141a9c483a745f2858d;hpb=a26a9d435eacd4ad233ab67bf7c90440e367e691 diff --git a/SimpleServer.xs b/SimpleServer.xs index 94decda..7769776 100644 --- a/SimpleServer.xs +++ b/SimpleServer.xs @@ -1,5 +1,5 @@ /* - * $Id: SimpleServer.xs,v 1.77 2007-09-07 16:54:01 mike Exp $ + * $Id: SimpleServer.xs,v 1.78 2007-09-10 11:17:13 mike Exp $ * ---------------------------------------------------------------------- * * Copyright (c) 2000-2004, Index Data. @@ -424,8 +424,9 @@ static SV *apt2perl(Z_AttributesPlusTerm *at) setMember(hv2, "attributeValue", newSViv(*elem->value.numeric)); } else { + Z_ComplexAttribute *c; assert(elem->which == Z_AttributeValue_complex); - Z_ComplexAttribute *c = elem->value.complex; + c = elem->value.complex; Z_StringOrNumeric *son; /* We ignore semantic actions and multiple values */ assert(c->num_list > 0);