/[cvs]/nfo/perl/libs/Data/Storage/Handler/DBI.pm
ViewVC logotype

Diff of /nfo/perl/libs/Data/Storage/Handler/DBI.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by joko, Sun Nov 17 06:34:39 2002 UTC revision 1.4 by jonen, Sun Nov 17 08:46:42 2002 UTC
# Line 3  Line 3 
3  #  $Id$  #  $Id$
4  #  #
5  #  $Log$  #  $Log$
6    #  Revision 1.4  2002/11/17 08:46:42  jonen
7    #  + wrapped eval around DBI->connect to prevent deaths
8    #
9  #  Revision 1.3  2002/11/17 06:34:39  joko  #  Revision 1.3  2002/11/17 06:34:39  joko
10  #  + locator metadata can now be reached via ->{locator}  #  + locator metadata can now be reached via ->{locator}
11  #  - sub hash2sql now taken from libdb  #  - sub hash2sql now taken from libdb
# Line 52  sub connect { Line 55  sub connect {
55                    
56          #use Data::Dumper; print Dumper($self->{dbi});          #use Data::Dumper; print Dumper($self->{dbi});
57                    
58          $self->{COREHANDLE} = DBI->connect( $dsn, '', '', $self->{locator}->{dbi} );          eval {
59          if (!$self->{COREHANDLE}) {            $self->{COREHANDLE} = DBI->connect( $dsn, '', '', $self->{locator}->{dbi} );
60            $logger->warning( __PACKAGE__ . "->connect failed: " . DBI::errstr );            if (!$self->{COREHANDLE}) {
61            return;              $logger->warning( __PACKAGE__ . "->connect failed: " . DBI::errstr );
62          }              return;
63              }
64            };
65            $logger->warning( __PACKAGE__ . "->connect failed: " . $@ ) if $@;
66    
67        }        }
68        $self->configureCOREHANDLE();        $self->configureCOREHANDLE();
69    
# Line 170  sub _getNextEntry { Line 177  sub _getNextEntry {
177  }  }
178    
179    
 1;  
180    1;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
MailToCvsAdmin">MailToCvsAdmin
 ViewVC Help
Powered by ViewVC 1.1.26 RSS 2.0 feed