[check_postgres] [commit] Attempt to fix space quoting problems.

[check_postgres at bucardo.org]

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