From e67c7c99ef624c47f638a8ea00ec0c881ebe7327 Mon Sep 17 00:00:00 2001
From: Peter Wemm <peter@FreeBSD.org>
Date: Fri, 17 Dec 1999 20:21:45 +0000
Subject: [PATCH] Make a dlopen failure consistant with dlsym().  "Shouldn't
 happen."

---
 lib/libcrypt/crypt-md5.c | 4 +++-
 lib/libcrypt/crypt-shs.c | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/lib/libcrypt/crypt-md5.c b/lib/libcrypt/crypt-md5.c
index 004ba605ea13..c112bd8436e7 100644
--- a/lib/libcrypt/crypt-md5.c
+++ b/lib/libcrypt/crypt-md5.c
@@ -75,8 +75,10 @@ crypt_md5(pw, salt)
 
 #ifdef __PIC__
 	libmd = dlopen("libmd.so", RTLD_NOW);
-	if (libmd == NULL)
+	if (libmd == NULL) {
+		warnx("libcrypt-md5: dlopen(libmd.so): %s\n", dlerror());
 		return NULL;
+	}
 	dl_MD5Init = dlsym(libmd, "MD5Init");
 	if (dl_MD5Init == NULL) {
 		warnx("libcrypt-md5: looking for MD5Init: %s\n", dlerror());
diff --git a/lib/libcrypt/crypt-shs.c b/lib/libcrypt/crypt-shs.c
index 4f693054e3fd..11a7aaf025c9 100644
--- a/lib/libcrypt/crypt-shs.c
+++ b/lib/libcrypt/crypt-shs.c
@@ -75,8 +75,10 @@ crypt_sha(pw, salt)
 
 #ifdef __PIC__
 	libmd = dlopen("libmd.so", RTLD_NOW);
-	if (libmd == NULL)
+	if (libmd == NULL) {
+		warnx("libcrypt-md5: dlopen(libmd.so): %s\n", dlerror());
 		return NULL;
+	}
 	dl_SHA_Init = dlsym(libmd, "SHA_Init");
 	if (dl_SHA_Init == NULL) {
 		warnx("libcrypt-md5: looking for SHA_Init: %s\n", dlerror());