From: Mike Taylor <mike@indexdata.com>
Date: Mon, 20 Aug 2007 11:06:09 +0000 (+0000)
Subject: Remove debugging output.
X-Git-Tag: CPAN.1.12~55
X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=e553a8a0187c083bf7617a544fcefcd76205d272;p=simpleserver-moved-to-github.git

Remove debugging output.
---

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;