@@ -, +, @@ prove t/db_dependent/Letters.t Use of uninitialized value $val in substitution iterator --- C4/Letters.pm | 1 + 1 file changed, 1 insertion(+) --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -599,6 +599,7 @@ sub GetPreparedLetter { if (%$substitute) { while ( my ($token, $val) = each %$substitute ) { + $val //= q{}; if ( $token eq 'items.content' ) { $val =~ s|\n|
|g if $letter->{is_html}; } --