Fix Perl warning
Use of uninitialized value $content in concatenation (.) or string
This commit is contained in:
parent
5edf438eeb
commit
6ee01e25b7
@ -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…
x
Reference in New Issue
Block a user