From 94d9e89201dda9611078da5612cf346874e16ed3 Mon Sep 17 00:00:00 2001 From: Andrew Dunstan Date: Tue, 19 Oct 2010 19:10:21 +0000 Subject: [PATCH] turn off perl expansion of postgres arrays --- trunk/cgi-bin/show_log.pl | 2 +- trunk/cgi-bin/show_members.pl | 2 +- trunk/cgi-bin/show_status.pl | 3 ++- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/trunk/cgi-bin/show_log.pl b/trunk/cgi-bin/show_log.pl index 663fc26..21c6ec5 100755 --- a/trunk/cgi-bin/show_log.pl +++ b/trunk/cgi-bin/show_log.pl @@ -34,7 +34,7 @@ use vars qw($info_row); if ($system && $logdate) { - my $db = DBI->connect($dsn,$dbuser,$dbpass); + my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0}); die $DBI::errstr unless $db; diff --git a/trunk/cgi-bin/show_members.pl b/trunk/cgi-bin/show_members.pl index 3bc733c..f6fb396 100755 --- a/trunk/cgi-bin/show_members.pl +++ b/trunk/cgi-bin/show_members.pl @@ -26,7 +26,7 @@ my $dsn="dbi:Pg:dbname=$dbname"; $dsn .= ";host=$dbhost" if $dbhost; $dsn .= ";port=$dbport" if $dbport; -my $db = DBI->connect($dsn,$dbuser,$dbpass); +my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0}); # there is possibly some redundancy in this query, but it makes # a lot of the processing simpler. diff --git a/trunk/cgi-bin/show_status.pl b/trunk/cgi-bin/show_status.pl index e1a6ef6..646195c 100755 --- a/trunk/cgi-bin/show_status.pl +++ b/trunk/cgi-bin/show_status.pl @@ -34,7 +34,8 @@ elsif ($sortby eq 'compiler') $sort_clause = "lower(compiler), compiler_version,"; } -my $db = DBI->connect($dsn,$dbuser,$dbpass) or die("$dsn,$dbuser,$dbpass,$!"); +my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0}) + or die("$dsn,$dbuser,$dbpass,$!"); my $statement =<