unicode, cont

1 files changed, 1 insertions, 3 deletions

diff --git a/videorm.pl b/videorm.pl
index 228317d..dceff84 100755
--- a/videorm.pl
+++ b/videorm.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl -w -CADSL
 
 # This program is free software. It comes without any warranty, to the
 # extent permitted by applicable law. You can redistribute it and/or
@@ -170,8 +170,6 @@ 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;
-
 
 # Lookup for the file in the videodb database
 my $res = $dbh->selectall_arrayref ( "SELECT id FROM $config{prefix}videodata WHERE filename = ?",