- temp = hv_fetch(href, "SCHEMA", 8, 1);
- schema = 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);
+ }