From 1421e8f3b6fc489f66d665d2a657f1af8bcd6595 Mon Sep 17 00:00:00 2001
From: Peter Eisentraut <peter@eisentraut.org>
Date: Sat, 8 Jul 2023 17:24:41 +0200
Subject: [PATCH] Fix Perl warning

Use of uninitialized value $content in concatenation (.) or string
---
 src/test/perl/PostgreSQL/Test/Utils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/test/perl/PostgreSQL/Test/Utils.pm b/src/test/perl/PostgreSQL/Test/Utils.pm
index 220cab303c..617caa022f 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/;