[check_postgres] [commit] Re-apply Jeff's patch, got removed somehow.

check_postgres at bucardo.org check_postgres at bucardo.org
Thu Apr 23 17:45:01 UTC 2009


Committed by Greg Sabino Mullane <greg at endpoint.com>

Re-apply Jeff's patch, got removed somehow.

---
 t/CP_Testing.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/CP_Testing.pm b/t/CP_Testing.pm
index 11f1e4d..e3918a9 100644
--- a/t/CP_Testing.pm
+++ b/t/CP_Testing.pm
@@ -152,13 +152,13 @@ sub test_database_handle {
 	$dbhost =~ s/([^\\]) /$1\\ /g;
 	$self->{dbname} ||= 'postgres';
 	my $dsn = qq{dbi:Pg:host=$dbhost;dbname=$self->{dbname}};
-	my @superdsn = ($dsn, '', '', {AutoCommit=>0,RaiseError=>1,PrintError=>0});
+	my $dbuser = $self->{testuser};
+	my @superdsn = ($dsn, $dbuser, '', {AutoCommit=>0,RaiseError=>1,PrintError=>0});
 	my $dbh = DBI->connect(@superdsn);
 	$dbh->ping() or die qq{Failed to ping!\n};
 
 	$dbh->{AutoCommit} = 1;
 	$dbh->{RaiseError} = 0;
-	my $dbuser = $self->{testuser};
 	$dbh->do("CREATE USER $dbuser SUPERUSER");
 	$dbh->do("CREATE USER sixpack NOSUPERUSER CREATEDB");
 	$dbh->do("CREATE USER readonly NOSUPERUSER NOCREATEDB");
-- 
1.6.0.5



More information about the Check_postgres mailing list