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:24:41 +0200 |
| commit | 1421e8f3b6fc489f66d665d2a657f1af8bcd6595 (patch) | |
| tree | 403f88296bc9c640561902ebf6b87b32980e616b /src | |
| parent | 01f1f789df5631b831dbd38b5a2b70d066f79fe2 (diff) | |
| download | postgresql-1421e8f3b6fc489f66d665d2a657f1af8bcd6595.tar.gz postgresql-1421e8f3b6fc489f66d665d2a657f1af8bcd6595.zip | |
Fix Perl warning
Use of uninitialized value $content in concatenation (.) or string
Diffstat (limited to 'src')
| -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/; |