X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.pm;h=b2c27a1ef7d75b817d1daae074fb69ed57e73c7b;hp=9dcfe5eb28edd112b398b55394095de8fa96b386;hb=e3800f2d21fbc84737b605dfaeee3dde2698bc2e;hpb=76c6d9aa7b7671681fdb7f85f68d45201c080899

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 9dcfe5e..b2c27a1 100644
--- 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 {