truncation use shouldn't produce fatal error

[Biblio-Z3950.git] / server.pl

diff --git a/server.pl b/server.pl
index fc807ae..715eee0 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -268,7 +268,8 @@ warn "# usemap ", dump($usemap);
         }
     }
     if ( defined( $attributes->{5} ) ) {                ## No truncation
-        die { errcode => 113, errstr => 5 };
+#      die { errcode => 113, errstr => 5 };
+       warn "# truncation is ignored";
     }
     my $comp = $attributes->{6};
     if ($prefix) {