blob: e8d7d48266740a8eae4e5b6bad2e24a4d2681dc2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
--- Pg.pm.orig Thu Apr 19 13:39:06 2001
+++ Pg.pm Thu Apr 19 13:40:13 2001
@@ -82,8 +82,10 @@
$user = "" unless defined($user);
$auth = "" unless defined($auth);
- $user = $ENV{DBI_USER} unless $user eq "";
- $auth = $ENV{DBI_PASS} unless $auth eq "";
+ $user ||= $ENV{DBI_USER};
+ $auth ||= $ENV{DBI_PASS};
+ $user ||= "";
+ $auth ||= "";
my($dbh) = DBI::_new_dbh($drh, {
'Name' => $Name,
|
