Fix -e option in contrib/intarray/bench/bench.pl.

tglsfdc · tglsfdc · commit 6657acc0100e · 2016-08-17T15:51:10.000-04:00
As implemented, -e ran an EXPLAIN but then discarded the output, which
certainly seems pointless.  Make it print to stdout instead.  It's been
like that forever, so back-patch to all supported branches.

Daniel Gustafsson, reviewed by Andreas Scherbaum

Patch: &lt;B97BDCB7-A3B3-4734-90B5-EDD586941629@yesql.se&gt;
diff --git a/contrib/intarray/bench/bench.pl b/contrib/intarray/bench/bench.pl
@@ -92,7 +92,8 @@
 
 if ($opt{e})
 {
-	$dbi->do("explain $sql");
+	my @plan = map { "$_->[0]\n" } @{$dbi->selectall_arrayref("explain $sql")};
+	print @plan;
 }
 
 my $t0    = [gettimeofday];

Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,8 @@`
`92`	`92`
`93`	`93`	`if ($opt{e})`
`94`	`94`	`{`
`95`		`- $dbi->do("explain $sql");`
	`95`	`+ my @plan = map { "$_->[0]\n" } @{$dbi->selectall_arrayref("explain $sql")};`
	`96`	`+ print @plan;`
`96`	`97`	`}`
`97`	`98`
`98`	`99`	`my $t0 = [gettimeofday];`