From 903a7d61c5e406fe0bda4e4adc881dc28802bad3 Mon Sep 17 00:00:00 2001
From: Ayush Goyal <perfectayush@gmail.com>
Date: Thu, 5 Nov 2020 14:08:16 +0530
Subject: [PATCH] Support adding explain output for slow query in JSON report
 as well

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

diff --git a/bin/pt-query-digest b/bin/pt-query-digest
index 8716e94b..7d3f4a4f 100755
--- a/bin/pt-query-digest
+++ b/bin/pt-query-digest
@@ -8073,6 +8073,7 @@ override query_report => sub {
                       :                             undef;
       my $fingerprint = substr($item, 0, $self->max_fingerprint_length);
       my $checksum    = make_checksum($item);
+      my $explain     = $self->explain_report($sample->{arg}, $sample->{db});
       my $class       = {
          checksum    => $checksum,
          fingerprint => $fingerprint,
@@ -8084,6 +8085,8 @@ override query_report => sub {
                query      => substr($sample->{arg}, 0, $self->max_query_length),
                ts         => $sample->{ts} ? parse_timestamp($sample->{ts}) : undef,
                Query_time => $sample->{Query_time},
+               $explain ?
+                   ( explain  => $explain ): (),
             },
          ),
       };