set ->do('SET NAMES utf8mb4'); by default

diff --git a/kmig.d/bin/KMig.pm b/kmig.d/bin/KMig.pm
index 82b7f1b..bfa5713 100644 (file)
--- a/kmig.d/bin/KMig.pm
+++ b/kmig.d/bin/KMig.pm
@@ -29,6 +29,7 @@ sub db_connect {
     } else {
         $dbh = DBI->connect("dbi:Pg:dbname=$MYSQL_DATABASE", "", "") || die "Unable to connect to $MYSQL_DATABASE : $!\n";
     }
+    $dbh->do('SET NAMES utf8mb4');
     return $dbh;
 }