Fix timeouts in PostgresNode::psql

Newer Perl or IPC::Run versions default to appending the filename to string
exceptions, e.g. the exception

    psql timed out

 is thrown as

    psql timed out at /usr/share/perl5/vendor_perl/IPC/Run.pm line 2961.

To handle this, match exceptions with !~ rather than ne.

From: Craig Ringer <craig@2ndquadrant.com>
Reviewed-by: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
This commit is contained in:
Peter Eisentraut 2017-03-01 13:52:38 -05:00
parent 8f7277dfb5
commit 231f48796b
1 changed files with 1 additions and 1 deletions

View File

@ -1139,7 +1139,7 @@ sub psql
# IPC::Run::run threw an exception. re-throw unless it's a
# timeout, which we'll handle by testing is_expired
die $exc_save
if (blessed($exc_save) || $exc_save ne $timeout_exception);
if (blessed($exc_save) || $exc_save !~ /^\Q$timeout_exception\E/);
$ret = undef;