From e553a8a0187c083bf7617a544fcefcd76205d272 Mon Sep 17 00:00:00 2001
From: Mike Taylor <mike@indexdata.com>
Date: Mon, 20 Aug 2007 11:06:09 +0000
Subject: [PATCH] Remove debugging output.

---
 SimpleServer.pm |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 5a8e6dd..003efea 100644
--- a/SimpleServer.pm
+++ b/SimpleServer.pm
@@ -25,7 +25,7 @@
 ##
 ##
 
-## $Id: SimpleServer.pm,v 1.39 2007-08-20 10:59:50 mike Exp $
+## $Id: SimpleServer.pm,v 1.40 2007-08-20 11:06:09 mike Exp $
 
 package Net::Z3950::SimpleServer;
 
@@ -146,7 +146,6 @@ sub toPQF {
 
     my $res = "";
     foreach my $attr (@{ $this->{attributes} }) {
-	use Data::Dumper; print "considering attr: ", Dumper($attr);
 	$res .= "\@attr ";
 	my $set = $attr->{attributeSet};
 	$res .= "$set " if defined $set;
-- 
1.7.10.4