diff options
-rw-r--r-- | etc/couchdb/local_dev.ini | 5 | ||||
-rw-r--r-- | src/couchdb/couch_doc.erl | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/etc/couchdb/local_dev.ini b/etc/couchdb/local_dev.ini index 13cfb494..78d268a7 100644 --- a/etc/couchdb/local_dev.ini +++ b/etc/couchdb/local_dev.ini @@ -8,7 +8,7 @@ ;max_document_size = 4294967296 ; bytes [httpd] -;port = 5984 +; port = 5985 ;bind_address = 127.0.0.1 [log] @@ -16,3 +16,6 @@ [update_notification] ;unique notifier name=/full/path/to/exe -with "cmd line arg" + +; [admins] +; jchris = -hashed-2431cc2e25f79c94e260383875a0efb615f4a7a6,15dc1c40afed7b0c9b23a06b76e17a08
\ No newline at end of file diff --git a/src/couchdb/couch_doc.erl b/src/couchdb/couch_doc.erl index 3c4fd98c..03cc8906 100644 --- a/src/couchdb/couch_doc.erl +++ b/src/couchdb/couch_doc.erl @@ -128,12 +128,14 @@ from_json_obj(_Other) -> parse_rev(Rev) when is_binary(Rev) -> parse_rev(?b2l(Rev)); -parse_rev(Rev) -> +parse_rev(Rev) when is_list(Rev) -> SplitRev = lists:splitwith(fun($-) -> false; (_) -> true end, Rev), case SplitRev of {Pos, [$- | RevId]} -> {list_to_integer(Pos), ?l2b(RevId)}; _Else -> throw({bad_request, <<"Invalid rev format">>}) - end. + end; +parse_rev(_BadRev) -> + throw({bad_request, <<"Invalid rev format">>}). parse_revs([]) -> []; |