*** 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,