diff options
| -rwxr-xr-x | videoadd.pl | 4 | ||||
| -rwxr-xr-x | videodb-check.pl | 4 | ||||
| -rwxr-xr-x | videomv.pl | 4 | ||||
| -rwxr-xr-x | videorm.pl | 4 |
4 files changed, 8 insertions, 8 deletions
diff --git a/videoadd.pl b/videoadd.pl index 5c49b61..079a4e3 100755 --- a/videoadd.pl +++ b/videoadd.pl @@ -233,8 +233,8 @@ my $dbh; unless ( defined $ignoredb_flag ) { # Connect to database my $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname};port=$config{port}"; - if (exists $config{dbi_misc}) { - while (my ($k,$v) = each $config{dbi_misc}) { + if (defined $config{dbi_misc}) { + while (my ($k,$v) = each %{$config{dbi_misc}}) { $dsn .= ";$k=$v"; } } diff --git a/videodb-check.pl b/videodb-check.pl index 14d58ed..1e5691b 100755 --- a/videodb-check.pl +++ b/videodb-check.pl @@ -135,8 +135,8 @@ if (@ARGV) { # Connect to database my $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname};port=$config{port}"; -if (exists $config{dbi_misc}) { - while (my ($k,$v) = each $config{dbi_misc}) { +if (defined $config{dbi_misc}) { + while (my ($k,$v) = each %{$config{dbi_misc}}) { $dsn .= ";$k=$v"; } } @@ -380,8 +380,8 @@ my @real_directors = splitdir($real_directors); my ($dsn, $dbh, $RES, $nRES, $id); unless (defined $ignoredb_flag) { $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname};port=$config{port}"; - if (exists $config{dbi_misc}) { - while (my ($k,$v) = each $config{dbi_misc}) { + if (defined $config{dbi_misc}) { + while (my ($k,$v) = each %{$config{dbi_misc}}) { $dsn .= ";$k=$v"; } } @@ -162,8 +162,8 @@ if (-l $file_s) { # Connect to database my $dsn = "DBI:$config{driver}:database=$config{database};host=$config{hostname};port=$config{port}"; -if (exists $config{dbi_misc}) { - while (my ($k,$v) = each $config{dbi_misc}) { +if (defined $config{dbi_misc}) { + while (my ($k,$v) = each %{$config{dbi_misc}}) { $dsn .= ";$k=$v"; } } |