Fix Perl warning

petere · petere · commit 6ee01e25b7f7 · 2023-07-08T17:27:18.000+02:00
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
@@ -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/;
