cleaner way to set restore the UTF-8 flag for the output of SELECT queries

1 files changed, 1 insertions, 0 deletions

diff --git a/videorm.pl b/videorm.pl
index 3acf4f3..bbdc5c2 100755
--- a/videorm.pl
+++ b/videorm.pl
@@ -172,6 +172,7 @@ if (defined $config{dbi_misc}) {
 }
 my $dbh = DBI->connect($dsn, $config{user}, $config{password})
             or die "Can't connect do database.\n";
+$dbh->do( "SET NAMES UTF8" ) or die "Error: Can't set names to UTF-8.\n";
 
 # Lookup for the file in the videodb database
 my $res = $dbh->selectall_arrayref ( "SELECT id FROM $config{prefix}videodata WHERE filename = ?",