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 220cab303c7321ac7009c2612ae9730c1af328cb..617caa022f494f6b7ee08963af65a0a8fa2c2a85 100644 (file)
--- 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/;