From f35c508e1eac8adc284e19fd101b25246e5dde71 Mon Sep 17 00:00:00 2001
From: "Stephen R. van den Berg" <srb@cuci.nl>
Date: Mon, 7 Nov 2016 12:48:55 +0100
Subject: [PATCH] pgsql: Even wipe the portal list if you start with portal==0.

---
 lib/modules/Sql.pmod/pgsql.pike | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/modules/Sql.pmod/pgsql.pike b/lib/modules/Sql.pmod/pgsql.pike
index 2cc5286eb6..8144db29fd 100644
--- a/lib/modules/Sql.pmod/pgsql.pike
+++ b/lib/modules/Sql.pmod/pgsql.pike
@@ -1178,13 +1178,14 @@ private void procmessage() {
   }
   PD("Closing database processloop %O\n",err);
   _delayederror=err;
-  for(;objectp(portal);portal=qportals->read())
+  do
     if(objectp(portal)) {
 #ifdef PG_DEBUG
       showportal(0);
 #endif
       portal->_purgeportal();
     }
+  while (portal = qportals->read());
   if(!terminating && _options.reconnect)
     _connectfail();
   else
-- 
GitLab