fips: Release random resources after selftests.

* src/fips.c (_gcry_fips_is_operational): Call _cgry_random_close_fds.

--

GnuPG-bug-id: 5636
Signed-off-by: NIIBE Yutaka <gniibe@fsij.org>

1 files changed, 4 insertions, 1 deletions

diff --git a/src/fips.c b/src/fips.c
index e0b76d22..afd7801f 100644
--- a/src/fips.c
+++ b/src/fips.c
@@ -36,7 +36,7 @@
 
 #include "g10lib.h"
 #include "cipher-proto.h"
-
+#include "../random/random.h"
 
 /* The states of the finite state machine used in fips mode.  */
 enum module_states
@@ -280,6 +280,9 @@ _gcry_fips_is_operational (void)
              our FSM make sure that we won't oversee any error. */
           unlock_fsm ();
           _gcry_fips_run_selftests (0);
+
+          /* Release resources for random.  */
+          _gcry_random_close_fds ();
           lock_fsm ();
         }