Commit6ba6306

committed

Fix failure with perlcritic in psql's create_help.pl

No buildfarm members have reported that yet, but a recently-refreshedDebian host did.Reviewed-by: Andrew DunstanDiscussion:https://postgr.es/m/Y8ey5z4Nav62g4/K@paquier.xyzBackpatch-through: 11

1 parenta3b65fb commit6ba6306Copy full SHA for 6ba6306

File tree

-3

lines changed

-3

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,7 @@`
`44`	`44`	`$define =~tr/a-z/A-Z/;`
`45`	`45`	`$define =~s/\W/_/g;`
`46`	`46`
`47`		`-opendir(DIR,$docdir)`
	`47`	`+opendir(my$dh,$docdir)`
`48`	`48`	`ordie"$0: could not open documentation source dir '$docdir':$!\n";`
`49`	`49`	`open(my$hfile_handle,'>',"$outdir/$hfile")`
`50`	`50`	`ordie"$0: could not open output file '$hfile':$!\n";`
`@@ -103,7 +103,7 @@`
`103`	`103`
`104`	`104`	`my%entries;`
`105`	`105`
`106`		`-foreachmy$file (sortreaddirDIR)`
	`106`	`+foreachmy$file (sortreaddir$dh)`
`107`	`107`	`{`
`108`	`108`	`my ($cmdid,@cmdnames,$cmddesc,$cmdsynopsis);`
`109`	`109`	`$file =~/\.sgml$/ornext;`
`@@ -230,4 +230,4 @@`
`230`	`230`	`close$cfile_handle;`
`231`	`231`	`close$hfile_handle;`
`232`	`232`	`close$depfile_handleif ($depfile);`
`233`		`-closedirDIR;`
	`233`	`+closedir$dh;`

Comments

(0)