From 0b72c4a40c91e195ce264d4099a8de6011103ff0 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 17 Feb 2012 17:41:47 +0100 Subject: [PATCH] die on unsupported format --- server.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/server.pl b/server.pl index 693ce18..f1ea91b 100755 --- 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"; -- 2.20.1