From 71fb93f84051ddd8ae038167ee1995111c698034 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Sun, 12 Feb 2017 10:01:46 -0800
Subject: [PATCH] Fix perl warnings
 https://sourceforge.net/p/webadmin/bugs/4895/

---
 acl/edit_sql.cgi | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/acl/edit_sql.cgi b/acl/edit_sql.cgi
index b15dd731e..7005aa556 100755
--- a/acl/edit_sql.cgi
+++ b/acl/edit_sql.cgi
@@ -16,6 +16,7 @@ print &ui_table_start($text{'sql_header'}, undef, 2);
 
 my ($proto, $user, $pass, $host, $prefix, $args) =
 	&split_userdb_string($miniserv{'userdb'});
+$proto ||= '';
 
 # Build inputs for MySQL backend
 my @mysqlgrid = ( );
@@ -91,7 +92,7 @@ print &ui_table_row(undef,
 		  [ 'ldap', $text{'sql_ldap'}, $ldapgrid ] ]), 2);
 
 print &ui_table_row(undef,
-	&ui_radio("addto", int($miniserv{'userdb_addto'}),
+	&ui_radio("addto", int($miniserv{'userdb_addto'} || 0),
 		  [ [ 0, $text{'sql_addto0'} ],
 		    [ 1, $text{'sql_addto1'} ] ]), 2);