From 89714de48508e9cdf1ec0b83a56249b82dcd87e0 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Mon, 20 Aug 2007 10:59:11 +0000 Subject: [PATCH] Comment out debugging printf()s in rpn2perl()'s RSID code. --- SimpleServer.xs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/SimpleServer.xs b/SimpleServer.xs index c7833eb..b13498c 100644 --- a/SimpleServer.xs +++ b/SimpleServer.xs @@ -1,5 +1,5 @@ /* - * $Id: SimpleServer.xs,v 1.72 2007-08-17 16:45:22 mike Exp $ + * $Id: SimpleServer.xs,v 1.73 2007-08-20 10:59:11 mike Exp $ * ---------------------------------------------------------------------- * * Copyright (c) 2000-2004, Index Data. @@ -464,13 +464,12 @@ static SV *rpn2perl(Z_RPNStructure *s) idea why. It seems as clear as day to me */ SV *sv2; char *rsid = (char*) o->u.resultSetId; - printf("Encoding resultSetId '%s'\n", rsid); + /*printf("Encoding resultSetId '%s'\n", rsid);*/ sv = newObject("Net::Z3950::RPN::RSID", (SV*) (hv = newHV())); - printf("Made sv=0x%lx, hv=0x%lx\n", - (unsigned long) sv ,(unsigned long) hv); + /*printf("Made sv=0x%lx, hv=0x%lx\n", (unsigned long) sv ,(unsigned long) hv);*/ sv2 = newSVpv(rsid, strlen(rsid)); setMember(hv, "id", sv2); - printf("Set hv{id} to 0x%lx\n", (unsigned long) sv2); + /*printf("Set hv{id} to 0x%lx\n", (unsigned long) sv2);*/ return sv; } -- 1.7.10.4