Silence Perl warning

alvherre · alvherre · commit e56d717d8a23 · 2020-04-13T19:57:40.000-04:00
Now that warnings are enabled across the board, this code that tries to print an undef variable emits one. Silently printing the empty string achieves the previous behavior. Author: Álvaro Herrera <alvherre@alvh.no-ip.org> Reviewed-by: Andrew Dunstan <andrew.dunstan@2ndquadrant.com> Discussion: https://postgr.es/m/E1jO1VT-0008Qk-TM@gemulon.postgresql.org
diff --git a/doc/src/sgml/mk_feature_tables.pl b/doc/src/sgml/mk_feature_tables.pl
@@ -54,7 +54,9 @@
 	{
 		print "  <entry>$feature_id</entry>\n";
 	}
-	print "  <entry>" . $feature_packages{$feature_id} . "</entry>\n";
+	print "  <entry>",
+		  defined($feature_packages{$feature_id}) ? $feature_packages{$feature_id} : "",
+		  "</entry>\n";
 	if ($subfeature_id)
 	{
 		print "  <entry>$subfeature_name</entry>\n";

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,9 @@`
`54`	`54`	`{`
`55`	`55`	`print " <entry>$feature_id</entry>\n";`
`56`	`56`	`}`
`57`		`- print " <entry>" . $feature_packages{$feature_id} . "</entry>\n";`
	`57`	`+ print " <entry>",`
	`58`	`+ defined($feature_packages{$feature_id}) ? $feature_packages{$feature_id} : "",`
	`59`	`+ "</entry>\n";`
`58`	`60`	`if ($subfeature_id)`
`59`	`61`	`{`
`60`	`62`	`print " <entry>$subfeature_name</entry>\n";`