SF.net SVN: ledger-smb:[4204] branches/1.3/scripts/setup.pl

[..hidden..]

Revision: 4204
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4204&view=rev
Author:   tshvr
Date:     2011-12-13 08:59:39 +0000 (Tue, 13 Dec 2011)
Log Message:
-----------
urgent commit setup fails auto-commit interpreted as user

Modified Paths:
--------------
    branches/1.3/scripts/setup.pl

Modified: branches/1.3/scripts/setup.pl
===================================================================
--- branches/1.3/scripts/setup.pl	2011-12-13 00:00:44 UTC (rev 4203)
+++ branches/1.3/scripts/setup.pl	2011-12-13 08:59:39 UTC (rev 4204)
@@ -765,7 +765,7 @@
     $database->process_roles('Roles.sql');
     # Credentials set above via environment variables --CT
     #avoid msg commit ineffective with AutoCommit enabled
-    $request->{dbh} = DBI->connect("dbi:Pg:dbname=$request->{database}",{AutoCommit=>0});
+    $request->{dbh} = DBI->connect("dbi:Pg:dbname=$request->{database}",$creds->{login},$creds->{password},{AutoCommit=>0});
     my $dbh = $request->{dbh};
     my $sth = $dbh->prepare(
           'UPDATE defaults SET value = ? WHERE setting_key = ?'

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.