stop on empty next_marc

[Biblio-Z3950.git] / server.pl

diff --git a/server.pl b/server.pl
index 8262c2a..b7029a3 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -149,7 +149,9 @@ sub FetchHandle {
        my $from = $rs->{from} || die "no from?";
        # fetch records up to offset
        while(  $#{ $rs->{results} } < $offset ) {
-               push @{ $rs->{results} }, $from->next_marc;
+               my $marc = $from->next_marc;
+               last if ! $marc; # abort results
+               push @{ $rs->{results} }, $marc;
                warn "# rs result ", $#{ $rs->{results} },"\n";
        }