From 0e1ba9d0f9d254f4a342867978af11f5dff27f62 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 25 May 2014 09:37:14 -0700
Subject: [PATCH] Don't try regexp on sn missing salt

---
 useradmin/md5-lib.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/useradmin/md5-lib.pl b/useradmin/md5-lib.pl
index 4c6069ace..87f739d9c 100755
--- a/useradmin/md5-lib.pl
+++ b/useradmin/md5-lib.pl
@@ -171,7 +171,7 @@ sub encrypt_blowfish
 my ($passwd, $salt) = @_;
 my ($plain, $base64) = ("", "");
 eval "use Crypt::Eksblowfish::Bcrypt";
-if ($salt !~ /^\$2a\$/) {
+if ($salt && $salt !~ /^\$2a\$/) {
 	# Invalid salt for Blowfish
 	$salt = undef;
 	}