MDEV-31611: mariadb-setpermission - Can't use string as an ARRAY ref while strict refs in use

Reviewer: <>
This commit is contained in:
Anel Husakovic 2023-11-20 16:22:07 +01:00 committed by Daniel Black
parent 78c9a12c8f
commit dd62a285b8

View file

@ -68,7 +68,7 @@ usage() if ($opt_help); # the help function
if ($opt_host =~ s/:(\d+)$//)
{
$opt_port = $1;
$opt_port = $1;
}
if ($opt_host eq '')
@ -98,7 +98,7 @@ my $prefix= 'mysql';
if (eval {DBI->install_driver("MariaDB")}) {
$dsn ="DBI:MariaDB:;";
$prefix= 'mariadb';
}
}
else {
$dsn = "DBI:mysql:;";
}
@ -226,11 +226,11 @@ sub setpwd
{
$pass = "PASSWORD(". $dbh->quote($pass) . ")";
}
my $uh= "$user@$host";
my $uh= $user."@".$host;
my $sth = $dbh->prepare("set password for $uh =$pass") || die $dbh->errstr;
$sth->execute || die $dbh->errstr;
$sth->finish;
print "The password is set for user $user.\n\n";
print "The password is set for user $uh.\n\n";
}