[couchdb] branch a-few-more-erlang-23-cleanups created (now 7628722d4)

[va...@apache.org]

This is an automated email from the ASF dual-hosted git repository.

vatamane pushed a change to branch a-few-more-erlang-23-cleanups
in repository https://gitbox.apache.org/repos/asf/couchdb.git


      at 7628722d4 A few more Erlang <23 cleanups

This branch includes the following new commits:

     new 7628722d4 A few more Erlang <23 cleanups

The 1 revisions listed above as "new" are entirely new to this
repository and will be described in separate emails.  The revisions
listed as "add" were already present in the repository and have only
been added to this reference.

[couchdb] 01/01: A few more Erlang <23 cleanups

[va...@apache.org]

This is an automated email from the ASF dual-hosted git repository.

vatamane pushed a commit to branch a-few-more-erlang-23-cleanups
in repository https://gitbox.apache.org/repos/asf/couchdb.git

commit 7628722d4360eb679ec86ccd7849e0a1bee77014
Author: Nick Vatamaniuc <va...@gmail.com>
AuthorDate: Tue Oct 25 16:00:12 2022 -0400

    A few more Erlang <23 cleanups
    
    Thanks to Ilya for noticing and catching these!
---
 src/couch/src/couch_httpd_auth.erl | 8 +-------
 src/couch/src/couch_server.erl     | 5 +----
 2 files changed, 2 insertions(+), 11 deletions(-)

diff --git a/src/couch/src/couch_httpd_auth.erl b/src/couch/src/couch_httpd_auth.erl
index c30854986..4a7b217d1 100644
--- a/src/couch/src/couch_httpd_auth.erl
+++ b/src/couch/src/couch_httpd_auth.erl
@@ -729,13 +729,7 @@ generate_token(Alg, Key, Len, Timestamp) ->
     integer_to_binary(couch_totp:generate(Alg, Key, Timestamp, 30, Len), Len).
 
 integer_to_binary(Int, Len) when is_integer(Int), is_integer(Len) ->
-    Unpadded =
-        case erlang:function_exported(erlang, integer_to_binary, 1) of
-            true ->
-                erlang:integer_to_binary(Int);
-            false ->
-                ?l2b(integer_to_list(Int))
-        end,
+    Unpadded = erlang:integer_to_binary(Int),
     Padding = binary:copy(<<"0">>, Len),
     Padded = <<Padding/binary, Unpadded/binary>>,
     binary:part(Padded, byte_size(Padded), -Len).
diff --git a/src/couch/src/couch_server.erl b/src/couch/src/couch_server.erl
index 4cb858295..7c96c9953 100644
--- a/src/couch/src/couch_server.erl
+++ b/src/couch/src/couch_server.erl
@@ -287,10 +287,7 @@ init([N]) ->
     config:enable_feature('access-ready'),
 
     % Mark if fips is enabled
-    case
-        erlang:function_exported(crypto, info_fips, 0) andalso
-            crypto:info_fips() == enabled
-    of
+    case crypto:info_fips() == enabled of
         true ->
             config:enable_feature('fips');
         false ->