Utilisation d'UTF8 pour la connexion à la base

This commit is contained in:
Daniel Berteaud 2012-10-14 21:46:02 +02:00
parent bed5b55eb4
commit e093b946bb
1 changed files with 1 additions and 0 deletions

View File

@ -55,6 +55,7 @@ sub db_connect {
my $dbh = DBI->connect("DBI:mysql:database=$opts{dbname};host=$opts{dbhost}",
$opts{dbuser}, $opts{dbpass}, {RaiseError => 1});
die "Couldn't connect to database\n" unless ($dbh);
$dbh->do("SET NAMES 'UTF8';") or die "Couldn't set names to UTF-8: ".DBI::errstr;
return $dbh;
}