Fixed: Global symbol "$host" requires explicit package name

[ci skip]
i-MSCP · Jul 31, 2016 · a09b1a6 · a09b1a6
1 parent ccfd02d
commit a09b1a6
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 7 deletions.
diff --git a/engine/PerlLib/Package/PhpMyAdmin/Uninstaller.pm b/engine/PerlLib/Package/PhpMyAdmin/Uninstaller.pm
@@ -101,9 +101,7 @@ sub _removeSqlUser
     my $self = shift;
 
     return 0 unless $self->{'config'}->{'DATABASE_USER'} && $main::imscpConfig{'DATABASE_USER_HOST'};
-    Servers::sqld->factory()->dropUser(
-        $self->{'config'}->{'DATABASE_USER'}, $main::imscpConfig{'DATABASE_USER_HOST'}
-    );
+    Servers::sqld->factory()->dropUser( $self->{'config'}->{'DATABASE_USER'}, $main::imscpConfig{'DATABASE_USER_HOST'} );
 }
 
 =item _removeSqlDatabase()

diff --git a/engine/PerlLib/Package/Webmail/RainLoop/Uninstaller.pm b/engine/PerlLib/Package/Webmail/RainLoop/Uninstaller.pm
@@ -102,7 +102,7 @@ sub _removeSqlUser
     for (
         $main::imscpConfig{'DATABASE_USER_HOST'}, $main::imscpConfig{'BASE_SERVER_IP'}, 'localhost', '127.0.0.1', '%'
     ) {
-        next unless $host;
+        next unless $_;
         $sqlServer->dropUser( $self->{'rainloop'}->{'config'}->{'DATABASE_USER'}, $_ );
     }
 

diff --git a/engine/PerlLib/Servers/po/courier/uninstaller.pm b/engine/PerlLib/Servers/po/courier/uninstaller.pm
@@ -55,9 +55,7 @@ sub _removeSqlUser
 
     my $sqlServer = Servers::sqld->factory();
 
-    for (
-        $main::imscpConfig{'DATABASE_USER_HOST'}, $main::imscpConfig{'BASE_SERVER_IP'}, 'localhost', '127.0.0.1', '%'
-    ) {
+    for ($main::imscpConfig{'DATABASE_USER_HOST'}, $main::imscpConfig{'BASE_SERVER_IP'}, 'localhost', '127.0.0.1', '%') {
         next unless $_;
 
         if ($self->{'config'}->{'AUTHDAEMON_DATABASE_USER'}) {