$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.
my $statement = q{
select name, operating_system, os_version, compiler, compiler_version, owner_email,
+ sys_notes_ts::date AS sys_notes_date, sys_notes,
architecture as arch, ARRAY(
select branch || ':' ||
extract(days from now() - l.snapshot)