X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=SimpleServer.xs;h=59ac45f833667b50242efd5eb516ed21b7551d52;hb=454df29b2256ded4f63f9b7e210256e56048d787;hp=77697761e8563157dc65cc51ac495e608ace6943;hpb=f684372e332957770d260141a9c483a745f2858d;p=simpleserver-moved-to-github.git

diff --git a/SimpleServer.xs b/SimpleServer.xs
index 7769776..59ac45f 100644
--- a/SimpleServer.xs
+++ b/SimpleServer.xs
@@ -1,5 +1,5 @@
 /*
- * $Id: SimpleServer.xs,v 1.78 2007-09-10 11:17:13 mike Exp $ 
+ * $Id: SimpleServer.xs,v 1.82 2008-08-29 18:58:40 mike Exp $ 
  * ----------------------------------------------------------------------
  * 
  * Copyright (c) 2000-2004, Index Data.
@@ -425,9 +425,9 @@ static SV *apt2perl(Z_AttributesPlusTerm *at)
 			  newSViv(*elem->value.numeric));
 	    } else {
 		Z_ComplexAttribute *c;
+		Z_StringOrNumeric *son;
 		assert(elem->which == Z_AttributeValue_complex);
 		c = elem->value.complex;
-		Z_StringOrNumeric *son;
 		/* We ignore semantic actions and multiple values */
 		assert(c->num_list > 0);
 		son = c->list[0];
@@ -865,7 +865,7 @@ int bend_delete(void *handle, bend_delete_rr *rr)
 	    if (rr->num_setnames > 1) {
 		rr->delete_status = 3; /* "System problem at target" */
 		/* There's no way to sent delete-msg using the GFS */
-		return;
+		return 0;
 	    }
 
 	    for (i = 0; i < rr->num_setnames; i++) {
@@ -1481,9 +1481,12 @@ bend_initresult *bend_init(bend_initrequest *q)
 	}
 
        	href = newHV();	
+
+	/* ### These should be given initial values from the client */
 	hv_store(href, "IMP_ID", 6, newSVpv("", 0), 0);
 	hv_store(href, "IMP_NAME", 8, newSVpv("", 0), 0);
 	hv_store(href, "IMP_VER", 7, newSVpv("", 0), 0);
+
 	hv_store(href, "ERR_CODE", 8, newSViv(0), 0);
 	hv_store(href, "ERR_STR", 7, newSViv(0), 0);
 	hv_store(href, "PEER_NAME", 9, newSVpv(q->peer_name, 0), 0);