postgres.git / summary / log / commit / refs

commit    1421e8f3b6fc489f66d665d2a657f1af8bcd6595
Author:   Peter Eisentraut <peter@eisentraut.org>
Date:     Sat Jul 08 15:24:41 2023 +0000
First released in: 17.0, 16.0

    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 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/;


[parent: 01f1f789df56]