From 2f41bca4e8ef591f5fa5c9ee620c7aacc9409f71 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Fri, 2 Mar 2012 11:53:49 +0100
Subject: cleaner way to set restore the UTF-8 flag for the output of SELECT
 queries

---
 videorm.pl | 1 +
 1 file changed, 1 insertion(+)

(limited to 'videorm.pl')

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 = ?",
-- 
cgit v1.2.3