From 3b72a0276160f669d4cc8f6e6023b7ed27ce2fcb Mon Sep 17 00:00:00 2001
From: Carlos Salguero <carlos.salguero@percona.com>
Date: Wed, 8 Jun 2016 22:43:42 -0300
Subject: [PATCH] bug-1402776 WIP. Still need to write a test

---
 bin/pt-query-digest | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bin/pt-query-digest b/bin/pt-query-digest
index bc858b15..00f473b0 100755
--- a/bin/pt-query-digest
+++ b/bin/pt-query-digest
@@ -4706,11 +4706,14 @@ sub parse_client_handshake_packet {
       return;
    }
 
-   my $code_len = hex($buff_len);
+   my $code_len = hex($buff_len);               
+   # The (.*?)00.?\Z part in the regex, is to remove an erroneous 
+   # null char + mysql_native_password after the db name
+   # https://bugs.launchpad.net/percona-toolkit/+bug/1402776
    my ( $db ) = $data =~ m!
       ^.{64}${user}00..   # Everything matched before
       (?:..){$code_len}   # The scramble buffer
-      (.*)00\Z            # The database name
+      (.*?)00.*\Z            # The database name
    !x;
    my $pkt = {
       user  => to_string($user),