Commit90d7f66

committed

Minor portability fixes for new TAP script.

Satisfy perlcritic, mostly. Per buildfarm.

1 parent44e44bd commit90d7f66Copy full SHA for 90d7f66

File tree

-1

lines changed

-1

lines changed

Lines changed: 3 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@`
`6`	`6`	`use Test::More;`
`7`	`7`	`use IPC::Runqw(pump finish timer);`
`8`	`8`
`9`		`-if ($ENV{with_readline}ne'yes')`
	`9`	`+if (!defined($ENV{with_readline}) \|\|$ENV{with_readline}ne'yes')`
`10`	`10`	`{`
`11`	`11`	`planskip_all=>'readline is not supported by this build';`
`12`	`12`	`}`
`@@ -64,13 +64,15 @@ sub check_completion`
`64`	`64`	`ok($okay,$annotation);`
`65`	`65`	`# for debugging, log actual output if it didn't match`
`66`	`66`	`note'Actual output was "' .$out ."\"\n"if !$okay;`
	`67`	`+return;`
`67`	`68`	`}`
`68`	`69`
`69`	`70`	`# Clear query buffer to start over`
`70`	`71`	`# (won't work if we are inside a string literal!)`
`71`	`72`	`subclear_query`
`72`	`73`	`{`
`73`	`74`	`check_completion("\\r\n","postgres=#","\\r works");`
	`75`	`+return;`
`74`	`76`	`}`
`75`	`77`
`76`	`78`	`# check basic command completion: SEL<tab> produces SELECT<space>`

Comments

(0)