Admin functions are deprecated in dbd::mysql version 5.x

vinperothas · vinperothas · commit da0ddc2afa11 · 2025-11-11T15:11:48.000+05:30
diff --git a/randgen/lib/DBServer/MySQL/MySQLd.pm b/randgen/lib/DBServer/MySQL/MySQLd.pm
@@ -574,7 +574,7 @@ sub stopServer {
         my $waits = 0;
         # Need to check if $dbh is defined, in case the server has crashed
         if (defined $dbh) {
-            $res = $dbh->func('shutdown','127.0.0.1','root','admin');
+            $res = $dbh->do("SHUTDOWN");
             if ($res) {
                 while ($self->running && $waits < 100) {
                     Time::HiRes::sleep(0.2);
diff --git a/randgen/lib/GenTest/Reporter/Shutdown.pm b/randgen/lib/GenTest/Reporter/Shutdown.pm
@@ -59,7 +59,7 @@ sub report {
         
         if (defined $dbh) {
             say("Shutting down server on port $port via DBI...");
-            $dbh->func('shutdown', 'admin');
+            $dbh->do("SHUTDOWN");
         }
         
         if (defined $pid) {

Original file line number	Diff line number	Diff line change
`@@ -59,7 +59,7 @@ sub report {`
`59`	`59`
`60`	`60`	`if (defined $dbh) {`
`61`	`61`	`say("Shutting down server on port $port via DBI...");`
`62`		`- $dbh->func('shutdown', 'admin');`
	`62`	`+ $dbh->do("SHUTDOWN");`
`63`	`63`	`}`
`64`	`64`
`65`	`65`	`if (defined $pid) {`