From c76a83a629af515e15de3f563ebb6859442f8435 Mon Sep 17 00:00:00 2001
From: Laurent Declercq <l.declercq@nuxwin.com>
Date: Fri, 29 Mar 2019 04:03:43 +0100
Subject: [PATCH] Fixed: Control user not removed while uninstallation

---
 src/Handler.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/Handler.pm b/src/Handler.pm
index a7780b13..2bf8cada 100755
--- a/src/Handler.pm
+++ b/src/Handler.pm
@@ -145,9 +145,11 @@ sub uninstall
             $dbh->quote_identifier( $::imscpConfig{'DATABASE_NAME'} . '_pma' )
         ));
 
-        if ( defined( my $controlUser = @{ $dbh->selectcol_arrayref(
-            "SELECT `value` FROM `config` WHERE `name` = 'PMA_CONTROL_USER'" ) }
-        ) ) {
+        my ( $controlUser ) = @{ $dbh->selectcol_arrayref(
+            "SELECT `value` FROM `config` WHERE `name` = 'PMA_CONTROL_USER'"
+        ) };
+
+        if ( defined $controlUser ) {
             $controlUser = decryptRijndaelCBC(
                 $::imscpDBKey, $::imscpDBiv, $controlUser
             );