X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=server.pl;h=33708da90e742bad9144ae79796821fd62329e16;hb=93c971eaad5872bcf487b17ae1f599d15fb66403;hp=1e17f2c02b601925540e00b4a1bd9db1c19db43a;hpb=1e7d14d016aadb14fea11906d2f41ec2472716c8;p=Biblio-Z3950.git

diff --git a/server.pl b/server.pl
index 1e17f2c..33708da 100755
--- a/server.pl
+++ b/server.pl
@@ -1,9 +1,11 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
+use warnings;
+use strict;
 
 use Net::Z3950::SimpleServer;
 use Net::Z3950::OID;
 use COBISS;
-use strict;
 
 my $max_records = 3; # XXX configure this
 my $max_result_sets = 10;
@@ -44,6 +46,7 @@ diag "search for $query";
 
     my $setname  = $this->{SETNAME};
     my $repl_set = $this->{REPL_SET};
+diag "SETNAME $setname REPL_SET $repl_set";
     my $result;
     unless ( $result = COBISS->search( $query ) ) {
         $this->{ERR_CODE} = 108;
@@ -157,12 +160,13 @@ sub render {
 
 package Net::Z3950::RPN::Term;
 
+use Data::Dump qw(dump);
 use COBISS;
 
 sub render {
     my $this       = shift;
 
-print "render ", $this;
+print "render ", dump($this);
 
     my $attributes = {};
     my $prefix     = "";