[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