From 0a0cc05bb1348aace0d35e4757f40313aef78835 Mon Sep 17 00:00:00 2001
From: Carlos Salguero <carlos.salguero@percona.com>
Date: Tue, 3 Aug 2021 09:07:02 -0300
Subject: [PATCH] PT-1997 Added error logs

---
 bin/pt-query-digest | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/bin/pt-query-digest b/bin/pt-query-digest
index 3503816d..b1b77fe3 100755
--- a/bin/pt-query-digest
+++ b/bin/pt-query-digest
@@ -13281,6 +13281,9 @@ sub main {
          DSNParser    => $dp,
          opts         => { AutoCommit => 1 },
       );
+      if ($EVAL_ERROR) {
+          die ("Cannot connect to the explain database: $EVAL_ERROR")
+      }
       $ep_dbh->{InactiveDestroy}  = 1;  # Don't die on fork().
    }
 
@@ -13303,6 +13306,10 @@ sub main {
          DSNParser    => $dp,
          opts         => { AutoCommit => 1 },
       );
+      if ($EVAL_ERROR) {
+          die ("Cannot connect to the review database: $EVAL_ERROR")
+      }
+
       $qv_dbh->{InactiveDestroy}  = 1;  # Don't die on fork().
 
       my @db_tbl = @{$review_dsn}{qw(D t)};
@@ -13347,6 +13354,9 @@ sub main {
          DSNParser    => $dp,
          opts         => { AutoCommit => 1 },
       );
+      if ($EVAL_ERROR) {
+          die ("Cannot connect to the history database: $EVAL_ERROR")
+      }
       $qh_dbh->{InactiveDestroy}  = 1;  # Don't die on fork().
 
       my @hdb_tbl = @{$history_dsn}{qw(D t)};