[Bioperl-guts-l] bioperl-db/Bio/DB/DBI base.pm,1.10,1.11

[Christopher John Fields]

Update of /home/repository/bioperl/bioperl-db/Bio/DB/DBI
In directory dev.open-bio.org:/tmp/cvs-serv28449/Bio/DB/DBI

Modified Files:
	base.pm 
Log Message:
bug 2387

Index: base.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-db/Bio/DB/DBI/base.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** base.pm	4 Jul 2006 04:38:07 -0000	1.10
--- base.pm	23 Oct 2007 16:55:34 -0000	1.11
***************
*** 246,250 ****
  	unless $dbc;
      my $dsn = $self->build_dsn($dbc);
!     $self->debug("new_connection(): dsn=$dsn; user=" .$dbc->username() ."\n");
  
      my $dbh;
--- 246,250 ----
  	unless $dbc;
      my $dsn = $self->build_dsn($dbc);
!     $self->debug("new_connection(): dsn=$dsn; user=" . (defined $dbc->username() ? $dbc->username() : 'undef') ."\n"); # undef: postgres 'ident sameuser' login
  
      my $dbh;