Fix Perl warning

Use of uninitialized value $content in concatenation (.) or string
This commit is contained in:
Peter Eisentraut 2023-07-08 17:24:41 +02:00
parent 5edf438eeb
commit 6ee01e25b7
1 changed files with 1 additions and 1 deletions

View File

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