diff options
Diffstat (limited to 'videoadd.pl')
-rwxr-xr-x | videoadd.pl | 5 |
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()}; |