permit storage of UTF-8 chars in MySQL DB (#238)

msimerson · Aug 5, 2024 · c535e13 · c535e13
1 parent 25cb7c1
commit c535e13
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/Changes.md b/Changes.md
@@ -1,3 +1,5 @@
+- Permit storage of UTF-8 chars in MySQL DB, related to #190
+
 ### 1.20240313
 
 - Fix error email sent when reports are too large

diff --git a/lib/Mail/DMARC/Report/Store/SQL.pm b/lib/Mail/DMARC/Report/Store/SQL.pm
@@ -531,6 +531,8 @@ sub db_connect {
     my $needs_tables;
 
     $self->{grammar} = undef;
+    my %opts;
+
     if ($dsn =~ /sqlite/i) {
         my ($db) = ( split /=/, $dsn )[-1];
         if ( !$db || $db eq ':memory:' || !-e $db ) {
@@ -541,14 +543,15 @@ sub db_connect {
         }
         $self->{grammar} = Mail::DMARC::Report::Store::SQL::Grammars::SQLite->new();
     } elsif ($dsn =~ /mysql/i) {
+        $opts{'mysql_enable_utf8mb4'} = 1;
         $self->{grammar} = Mail::DMARC::Report::Store::SQL::Grammars::MySQL->new();
     } elsif ($dsn =~ /pg/i) {
         $self->{grammar} = Mail::DMARC::Report::Store::SQL::Grammars::PostgreSQL->new();
     } else {
         croak "can't determine database type, so unable to load grammar.\n";
     }
 
-    $self->{dbix} = DBIx::Simple->connect( $dsn, $user, $pass )
+    $self->{dbix} = DBIx::Simple->connect( $dsn, $user, $pass, \%opts )
         or return $self->error( DBIx::Simple->error );
 
     if ($needs_tables) {