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