From e339face270549fa90f64c86b9ac2097d8c1462b Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@ens-lyon.org>
Date: Sat, 18 Feb 2012 18:25:02 +0100
Subject: connection bug

---
 videoadd.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'videoadd.pl')

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";
         }
     }
-- 
cgit v1.2.3