From: Peter Eisentraut <peter@eisentraut.org>
Date: Sat, 8 Jul 2023 15:24:41 +0000 (+0200)
Subject: Fix Perl warning
X-Git-Tag: REL_17_BETA1~2179
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6ee01e25b7f79bdf835d12927b306ad922c55fd3;p=thirdparty%2Fpostgresql.git

Fix Perl warning

Use of uninitialized value $content in concatenation (.) or string
---

diff --git a/src/test/perl/PostgreSQL/Test/Utils.pm b/src/test/perl/PostgreSQL/Test/Utils.pm
index 220cab303c7..617caa022f4 100644
--- a/src/test/perl/PostgreSQL/Test/Utils.pm
+++ b/src/test/perl/PostgreSQL/Test/Utils.pm
@@ -564,7 +564,7 @@ sub string_replace_file
 {
 	my ($filename, $find, $replace) = @_;
 	open(my $in, '<', $filename);
-	my $content;
+	my $content = '';
 	while (<$in>)
 	{
 		$_ =~ s/$find/$replace/;