Index: mail_process.pl
===================================================================
--- mail_process.pl	(revision 749)
+++ mail_process.pl	(revision 750)
@@ -29,7 +29,7 @@
 $keeper->t_connect() || die $keeper->error();
 my $ids = $keeper->TSQL->selectall_arrayref("SELECT id FROM mailqueue WHERE status = 0 and dtime <= CURRENT_TIMESTAMP ORDER BY ctime LIMIT 5");
 if ( ref $ids eq 'ARRAY' && @$ids ) {
-	$keeper->TSQL->do("UPDATE mailqueue SET status = 2 WHERE ID IN (".join(',', '?' x scalar @$ids).")", {}, map { $_->[0] } @$ids);
+	$keeper->TSQL->do("UPDATE mailqueue SET status = 2 WHERE ID IN (".join(',', ('?') x scalar @$ids).")", {}, map { $_->[0] } @$ids);
 }
 $keeper->t_finish();