Silence perlcritic warning about missing return.

tglsfdc · tglsfdc · commit e65e8f8218e3 · 2018-10-19T14:00:17.000-04:00
Per buildfarm member crake.
diff --git a/src/bin/pg_verify_checksums/t/002_actions.pl b/src/bin/pg_verify_checksums/t/002_actions.pl
@@ -109,6 +109,8 @@ sub fail_corrupt
 						  [qr/^$/],
 						  [qr/could not read block/],
 						  "fails for corrupted data in $file");
+
+	return;
 }
 
 # Authorized relation files filled with corrupted data cause the

Original file line number	Diff line number	Diff line change
`@@ -109,6 +109,8 @@ sub fail_corrupt`
`109`	`109`	`[qr/^$/],`
`110`	`110`	`[qr/could not read block/],`
`111`	`111`	`"fails for corrupted data in $file");`
	`112`	`+`
	`113`	`+ return;`
`112`	`114`	`}`
`113`	`115`
`114`	`116`	`# Authorized relation files filled with corrupted data cause the`