From 041ed3ace4f2cbbcd6c2112d2afdf616cb349804 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sat, 10 Jun 2017 12:46:33 -0700
Subject: [PATCH] Fix perl warnings

---
 useradmin/md5-lib.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/useradmin/md5-lib.pl b/useradmin/md5-lib.pl
index 87f739d9c..7c180eba9 100755
--- a/useradmin/md5-lib.pl
+++ b/useradmin/md5-lib.pl
@@ -242,12 +242,12 @@ if (!&check_blowfish()) {
 # SHA1
 if (!&check_sha512()) {
 	my $shash = &encrypt_sha512($passwd, $hash);
-	return 1 if ($shash eq $hash);
+	return 1 if ($shash && $shash eq $hash);
 	}
 
 # Some other hashing, maybe supported by crypt
 my $ohash = eval { crypt($passwd, $hash) };
-return 1 if ($ohash eq $hash);
+return 1 if ($ohash && $ohash eq $hash);
 
 return 0;
 }