Add diagnostic output on error in pump_until

When pump_until was moved to Utils.pm in commit 6da65a3f9 the diag
calls were removed, this puts them back.

Per request from Andres Freund.

Discussion: https://postgr.es/m/20220329225819.ahk5u2tax3ez6d2t@alap3.anarazel.de
This commit is contained in:
Daniel Gustafsson 2022-03-31 11:16:16 +02:00
parent 8f2e2bbf14
commit 2beb4acff1
1 changed files with 10 additions and 2 deletions

View File

@ -426,8 +426,16 @@ sub pump_until
while (1)
{
last if $$stream =~ /$until/;
return 0 if ($timeout->is_expired);
return 0 if (not $proc->pumpable());
if ($timeout->is_expired)
{
diag("pump_until: timeout expired when searching for \"$until\" with stream: \"$$stream\"");
return 0;
}
if (not $proc->pumpable())
{
diag("pump_until: process terminated unexpectedly when searching for \"$until\" with stream: \"$$stream\"");
return 0;
}
$proc->pump();
}
return 1;