cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Repository DBI.pm

[Stephen Adkins]

cvsuser     03/07/16 08:55:18

  Modified:    P5EEx/Blue/P5EEx/Blue/Repository DBI.pm
  Log:
  added debug output on connect failure
  
  Revision  Changes    Path
  1.24      +6 -2      p5ee/P5EEx/Blue/P5EEx/Blue/Repository/DBI.pm
  
  Index: DBI.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Repository/DBI.pm,v
  retrieving revision 1.23
  retrieving revision 1.24
  diff -u -w -r1.23 -r1.24
  --- DBI.pm    21 Jun 2003 04:52:28 -0000      1.23
  +++ DBI.pm    16 Jul 2003 15:55:18 -0000      1.24
  @@ -1,13 +1,13 @@
   
   ######################################################################
  -## File: $Id: DBI.pm,v 1.23 2003/06/21 04:52:28 spadkins Exp $
  +## File: $Id: DBI.pm,v 1.24 2003/07/16 15:55:18 spadkins Exp $
   ######################################################################
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Repository;
   
   package P5EEx::Blue::Repository::DBI;
  -$VERSION = do { my @r=(q$Revision: 1.23 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.24 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "P5EEx::Blue::Repository" );
   
  @@ -196,6 +196,10 @@
           }
   
           $self->{dbh} = DBI->connect($self->{dsn}, $self->{dbuser}, $self->{dbpass}, 
$self->{attr});
  +        if (!$self->{dbh}) {
  +            print STDERR "DBI->connect($self->{dsn}, $self->{dbuser}, 
$self->{dbpass}, $self->{attr});\n";
  +            print STDERR "dbh=[$self->{dbh}] errstr=[$DBI::errstr]\n";
  +        }
       }
   
       return(defined $self->{dbh});