diff options
| author | Peter Eisentraut <peter@eisentraut.org> | 2023-07-08 17:24:41 +0200 |
|---|---|---|
| committer | Peter Eisentraut <peter@eisentraut.org> | 2023-07-08 17:27:18 +0200 |
| commit | 6ee01e25b7f79bdf835d12927b306ad922c55fd3 (patch) | |
| tree | 48dd5896a2142976b42612943e0b0f8d1c8708dd /src/test/perl/PostgreSQL | |
| parent | 5edf438eeb00271cca5d19d0ea10a2d6e8d018c4 (diff) | |
| download | postgresql-6ee01e25b7f79bdf835d12927b306ad922c55fd3.tar.gz postgresql-6ee01e25b7f79bdf835d12927b306ad922c55fd3.zip | |
Fix Perl warning
Use of uninitialized value $content in concatenation (.) or string
Diffstat (limited to 'src/test/perl/PostgreSQL')
| -rw-r--r-- | src/test/perl/PostgreSQL/Test/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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/; |