X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.xs;h=d8675e77d8397fa0ca2155d8dc60512f5c220144;hp=f5fe4026da24d4341d2de99781f22f06c273fffc;hb=d4f91dc53b5680d033b5b5895430fc8fb8e38cce;hpb=c688a3758bfbc432610ae0f5f447fbc563eff50d diff --git a/SimpleServer.xs b/SimpleServer.xs index f5fe402..d8675e7 100644 --- a/SimpleServer.xs +++ b/SimpleServer.xs @@ -1,5 +1,5 @@ /* - * $Id: SimpleServer.xs,v 1.51 2006-07-25 23:14:49 mike Exp $ + * $Id: SimpleServer.xs,v 1.54 2006-12-01 10:44:58 sondberg Exp $ * ---------------------------------------------------------------------- * * Copyright (c) 2000-2004, Index Data. @@ -35,6 +35,7 @@ #include #include #include +#include #include #ifdef WIN32 #else @@ -843,7 +844,7 @@ int bend_fetch(void *handle, bend_fetch_rr *rr) SV *sur_flag; SV *point; SV *rep_form; - SV *schema; + SV *schema = 0; char *ptr; char *ODR_record; char *ODR_basename; @@ -926,7 +927,7 @@ int bend_fetch(void *handle, bend_fetch_rr *rr) else { rr->errcode = 26; - return; + return 0; } } @@ -962,16 +963,14 @@ int bend_fetch(void *handle, bend_fetch_rr *rr) temp = hv_fetch(href, "REP_FORM", 8, 1); rep_form = newSVsv(*temp); - fprintf(stderr, "about to get SCHEMA\n"); temp = hv_fetch(href, "SCHEMA", 6, 1); if (temp != 0) { schema = newSVsv(*temp); - fprintf(stderr, "got schema = %0p\n", schema); ptr = SvPV(schema, length); - fprintf(stderr, "got ptr=%0p, length=%d\n", ptr, length); - rr->schema = (char *)odr_malloc(rr->stream, length + 1); - strcpy(rr->schema, ptr); - fprintf(stderr, "copied schema len %d = '%.*s'\n", length, length+5, ptr); + if (length > 0) { + rr->schema = (char *)odr_malloc(rr->stream, length + 1); + strcpy(rr->schema, ptr); + } } temp = hv_fetch(href, "HANDLE", 6, 1); @@ -1030,7 +1029,9 @@ int bend_fetch(void *handle, bend_fetch_rr *rr) sv_free(err_code), sv_free(sur_flag); sv_free(rep_form); - sv_free(schema); + + if (schema) + sv_free(schema); PUTBACK; FREETMPS; @@ -1112,7 +1113,7 @@ int bend_present(void *handle, bend_present_rr *rr) else { rr->errcode = 26; - return; + return 0; } }