projects
/
Biblio-Z3950.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d625ea0
)
die on unsupported format
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 17 Feb 2012 16:41:47 +0000
(17:41 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 17 Feb 2012 16:41:47 +0000
(17:41 +0100)
server.pl
patch
|
blob
|
history
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";