From: Alvaro Herrera <alvherre@alvh.no-ip.org>
Date: Mon, 13 Apr 2020 23:54:09 +0000 (-0400)
Subject: Silence Perl warning
X-Git-Tag: REL_13_BETA1~251
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e56d717d8a23c48e4ab27b6bd6815c50dc3a378a;p=thirdparty%2Fpostgresql.git

Silence Perl warning

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
index ee158cb1969..a9dfebfbb31 100644
--- a/doc/src/sgml/mk_feature_tables.pl
+++ b/doc/src/sgml/mk_feature_tables.pl
@@ -54,7 +54,9 @@ while (<$feat>)
 	{
 		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";