projects
/
simpleserver-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
*** empty log message ***
[simpleserver-moved-to-github.git]
/
SimpleServer.pm
diff --git
a/SimpleServer.pm
b/SimpleServer.pm
index
9dcfe5e
..
b2c27a1
100644
(file)
--- a/
SimpleServer.pm
+++ b/
SimpleServer.pm
@@
-122,7
+122,6
@@
Net::Z3950::SimpleServer - Simple Perl API for building Z39.50 servers.
my $record = fetch_a_record($args->{OFFSET);
$args->{RECORD} = $record;
- $args->{LEN} = length($record);
if (number_of_hits() == $args->{OFFSET}) { ## Last record in set?
$args->{LAST} = 1;
} else {