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

tglsfdc · tglsfdc · commit 9942376a5b61 · 2016-08-17T15:51:11.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
@@ -70,7 +70,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
`@@ -70,7 +70,8 @@`
`70`	`70`	`}`
`71`	`71`
`72`	`72`	`if ( $opt{e} ) {`
`73`		`- $dbi->do("explain $sql");`
	`73`	`+ my @plan = map { "$_->[0]\n" } @{$dbi->selectall_arrayref("explain $sql")};`
	`74`	`+ print @plan;`
`74`	`75`	`}`
`75`	`76`
`76`	`77`	`my $t0 = [gettimeofday];`