From: Greg Sabino Mullane <greg@endpoint.com>
Date: Thu, 9 Apr 2009 18:36:02 +0000 (-0400)
Subject: More space stuff.
X-Git-Tag: 2.9.0~122
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=26e7588d743a1622a4496c4ba961287a41c60aed;p=check_postgres.git

More space stuff.
---

diff --git a/t/CP_Testing.pm b/t/CP_Testing.pm
index ecd535adc..1871972a6 100644
--- a/t/CP_Testing.pm
+++ b/t/CP_Testing.pm
@@ -97,7 +97,7 @@ sub test_database_handle {
 
 		unlink $logfile;
 
-		$com = "LC_ALL=en LANG=C pg_ctl -o '-k socket' -l $logfile -D $dbdir/data start";
+		$com = qq{LC_ALL=en LANG=C pg_ctl -o '-k socket' -l $logfile -D "$dbdir/data" start};
 		eval {
 			$info = qx{$com};
 		};
@@ -126,7 +126,7 @@ sub test_database_handle {
 	} ## end of needs startup
 
 	my $here = cwd();
-	my $dsn = qq{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};