From: Gilles Darold <gilles.darold@dalibo.com>
Date: Wed, 4 Jan 2017 12:31:34 +0000 (+0100)
Subject: Fix huge performance lost introduced with patch on explain plan parser.
X-Git-Tag: v9.1~9
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=68f3c53bab5031e3adee8749e662ec2be4b93922;p=pgbadger

Fix huge performance lost introduced with patch on explain plan parser.
---

diff --git a/pgbadger b/pgbadger
index c129dc2..2de31cc 100644
--- a/pgbadger
+++ b/pgbadger
@@ -3061,7 +3061,7 @@ sub parse_orphan_line
 
 		$cur_info{$cur_pid}{parameters} .= " $line" if (!$error_only);
 
-	} elsif (exists $cur_plan_info{$cur_pid}{duration}) {
+	} elsif (exists $cur_plan_info{$cur_pid}) {
 
 		$cur_plan_info{$cur_pid}{plan} .= "\n" . $line;
 
@@ -12943,7 +12943,7 @@ sub set_current_infos
 	$cur_info{$t_pid}{bind}      = $prefix_vars{'t_bind'} if (!$cur_info{$t_pid}{bind});
 
 	# Extract the query part from the plan
-	if (exists $cur_plan_info{$t_pid}{plan} && ($cur_plan_info{$t_pid}{plan} ne '')) {
+	if (exists $cur_plan_info{$t_pid} && exists $cur_plan_info{$t_pid}{plan} && $cur_plan_info{$t_pid}{plan} ne '') {
 		my $key = 'query';
 		my @plan = split("\n", $cur_plan_info{$t_pid}{plan});
 		$plan[0] =~ s/^\s*Query Text:\s+//;