turn off perl expansion of postgres arrays

[buildfarm-server.git] / trunk / cgi-bin / show_status.pl

diff --git a/trunk/cgi-bin/show_status.pl b/trunk/cgi-bin/show_status.pl
index e1a6ef6dd73ca2cab91ef9b5bc32f9c38fbe04d1..646195c44fa9bdac5de2199549a150a932596f3e 100755 (executable)
--- 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 =<<EOS;