summaryrefslogtreecommitdiffstats
path: root/videoadd.pl
diff options
context:
space:
mode:
Diffstat (limited to 'videoadd.pl')
-rwxr-xr-xvideoadd.pl5
1 files changed, 2 insertions, 3 deletions
diff --git a/videoadd.pl b/videoadd.pl
index d76ad14..bb70614 100755
--- a/videoadd.pl
+++ b/videoadd.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
@@ -241,7 +241,6 @@ unless ( defined $ignoredb_flag ) {
}
$dbh = DBI->connect($dsn, $config{user}, $config{password})
or die "Error: Can't connect do database.\n";
- $dbh->do( "SET NAMES UTF8" ) or die "Error: Can't set names to UTF-8.\n";
}
my $id;
@@ -290,7 +289,7 @@ if ( defined ($imdb{crit}) and &runIMDB() ) {
# Got a single result; Process the movie
$new{title} = $movie->title();
$new{language} = lc join (', ', @{$movie->language()});
- $new{imdbid} = 'imdb:' $movie->id();
+ $new{imdbid} = 'imdb:' .$movie->id();
$new{year} = $movie->year();
$new{imgurl} = $movie->cover();
$new{director} = join ', ', map {$_->{name}} @{$movie->directors()};