fixed DBI connection setup
authorHeiko Schlittermann <hs@schlittermann.de>
Wed, 09 Sep 2009 16:33:02 +0200
changeset 32 68f8a7003db3
parent 31 0f25345e3bf9
child 33 efe58ea81974
fixed DBI connection setup
log.pl
--- a/log.pl	Tue Sep 08 23:22:59 2009 +0200
+++ b/log.pl	Wed Sep 09 16:33:02 2009 +0200
@@ -152,10 +152,8 @@
 
     if ($opt_db) {
         END { $Dbh->disconnect() if $Dbh; }
-        $Dbh = DBI->connect($DSN, $USER, $PW, { RaiseError => 0 });
-        if (!$Dbh or !$Dbh->connected) {
-            warn $DBI::errstr;
-        }
+        $Dbh = DBI->connect($DSN, $USER, $PW, { RaiseError => 0 })
+	    or warn $DBI::errstr;
     }
 
     # Temporärfile öffnen