--- nfo/perl/libs/Data/Storage/Handler/DBI.pm	2002/11/17 06:34:39	1.3
+++ nfo/perl/libs/Data/Storage/Handler/DBI.pm	2002/11/17 08:46:42	1.4
@@ -1,8 +1,11 @@
 #################################
 #
-#  $Id: DBI.pm,v 1.3 2002/11/17 06:34:39 joko Exp $
+#  $Id: DBI.pm,v 1.4 2002/11/17 08:46:42 jonen Exp $
 #
 #  $Log: DBI.pm,v $
+#  Revision 1.4  2002/11/17 08:46:42  jonen
+#  + wrapped eval around DBI->connect to prevent deaths
+#
 #  Revision 1.3  2002/11/17 06:34:39  joko
 #  + locator metadata can now be reached via ->{locator}
 #  - sub hash2sql now taken from libdb
@@ -52,11 +55,15 @@
         
         #use Data::Dumper; print Dumper($self->{dbi});
         
-        $self->{COREHANDLE} = DBI->connect( $dsn, '', '', $self->{locator}->{dbi} );
-        if (!$self->{COREHANDLE}) {
-          $logger->warning( __PACKAGE__ . "->connect failed: " . DBI::errstr );
-          return;
-        }
+        eval {
+          $self->{COREHANDLE} = DBI->connect( $dsn, '', '', $self->{locator}->{dbi} );
+          if (!$self->{COREHANDLE}) {
+            $logger->warning( __PACKAGE__ . "->connect failed: " . DBI::errstr );
+            return;
+          }
+        };
+        $logger->warning( __PACKAGE__ . "->connect failed: " . $@ ) if $@;
+
       }
       $self->configureCOREHANDLE();
 
@@ -170,4 +177,4 @@
 }
 
 
-1;
\ No newline at end of file
+1;