[check_postgres] [commit] Attempt to fix space quoting problems.
check_postgres at bucardo.org
check_postgres at bucardo.org
Thu Apr 9 17:59:54 UTC 2009
Committed by Greg Sabino Mullane <greg at endpoint.com>
Attempt to fix space quoting problems.
---
t/CP_Testing.pm | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/t/CP_Testing.pm b/t/CP_Testing.pm
index d59a02b..ecd535a 100644
--- a/t/CP_Testing.pm
+++ b/t/CP_Testing.pm
@@ -126,7 +126,7 @@ sub test_database_handle {
} ## end of needs startup
my $here = cwd();
- my $dsn = "dbi:Pg:host=$here/$dbdir/data/socket;dbname=postgres";
+ my $dsn = qq{dbi:Pg:host="$here/$dbdir/data/socket;dbname=postgres"};
my @superdsn = ($dsn, '', '', {AutoCommit=>0,RaiseError=>1,PrintError=>0});
my $dbh = DBI->connect(@superdsn);
$dbh->ping() or die qq{Failed to ping!\n};
@@ -178,10 +178,10 @@ sub run {
my $dbuser = $self->{testuser} || die "No testuser?";
my $dbname = $self->{dbname} || die "No dbname?";
- my $com = "perl check_postgres.pl --action=$action --dbhost=$dbhost --dbname=$dbname --dbuser=$dbuser";
+ my $com = qq{perl check_postgres.pl --action=$action --dbhost="$dbhost" --dbname=$dbname --dbuser=$dbuser};
if ($double) {
- $com .= " --dbhost2=$dbhost --dbname2=ardala --dbuser2=$dbuser";
+ $com .= qq{ --dbhost2="$dbhost" --dbname2=ardala --dbuser2=$dbuser};
}
$extra and $com .= " $extra";
--
1.6.0.5
More information about the Check_postgres
mailing list