Fix Perl warning

Use of uninitialized value $content in concatenation (.) or string
pull/150/head
Peter Eisentraut 2 years ago
parent 01f1f789df
commit 1421e8f3b6
  1. 2
      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/;

Loading…
Cancel
Save