die on unsupported format

[Biblio-Z3950.git] / server.pl

diff --git a/server.pl b/server.pl
index 693ce18..f1ea91b 100755 (executable)
--- a/server.pl
+++ b/server.pl
@@ -127,7 +127,7 @@ sub FetchHandle {
                $req_form eq Net::Z3950::OID::xml()     ? 'xml' :
                $req_form eq Net::Z3950::OID::unimarc() ? 'unimarc' :
                $req_form eq Net::Z3950::OID::usmarc()  ? 'marc' : # XXX usmarc -> marc
-               undef;
+               die "unknown format $req_form";
 
        if ( ! $format ) {
                warn "ERROR: $req_form format not supported";