1 files changed, 12 insertions, 0 deletions
diff --git a/src/ssl_error.c b/src/ssl_error.c
new file mode 100644
index 0000000..88a01a1
--- /dev/null
+++ b/src/ssl_error.c
@@ -0,0 +1,12 @@
+#include "ucspissl.h"
+
+int ssl_error(int (*op)(const char *)) {
+  unsigned long e;
+  int r;
+
+  e = ERR_get_error();
+  if (!e) return 0;
+  r = op(ERR_error_string(e,0));
+  if (r) return r;
+  return ssl_error(op);
+}