Re: bug in DBD::Pg .96-- connect user mishandled?

[Giles Lean]

> The crux of it seems to be this line:
> 
>   $user = $ENV{DBI_USER} unless $user eq "";

Here's one way to fix it.

Regards,

Giles

*** DBD-Pg-0.96/Pg.pm-orig      Tue Apr 10 03:44:18 2001
--- DBD-Pg-0.96/Pg.pm   Sun Apr 15 10:26:16 2001
***************
*** 79,89 ****
          $Name =~ s/^.*dbname\s*=\s*//;
          $Name =~ s/\s*;.*$//;
  
!         $user = "" unless defined($user);
!         $auth = "" unless defined($auth);
! 
!         $user = $ENV{DBI_USER} unless $user eq "";
!         $auth = $ENV{DBI_PASS} unless $auth eq "";
  
          my($dbh) = DBI::_new_dbh($drh, {
              'Name' => $Name,
--- 79,88 ----
          $Name =~ s/^.*dbname\s*=\s*//;
          $Name =~ s/\s*;.*$//;
  
!         $user ||= $ENV{DBI_USER};
!         $auth ||= $ENV{DBI_PASS};
!       $user ||= "";
!       $auth ||= "";
  
          my($dbh) = DBI::_new_dbh($drh, {
              'Name' => $Name,