From 4725c7b0e2bd76eb0a060cd3c3df3233303c1e48 Mon Sep 17 00:00:00 2001 From: Greg Sabino Mullane Date: Thu, 9 Apr 2009 13:59:43 -0400 Subject: [PATCH] Attempt to fix space quoting problems. --- t/CP_Testing.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/CP_Testing.pm b/t/CP_Testing.pm index d59a02bee..ecd535adc 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"; -- 2.39.5