From 34b84b68e509c9172b850dad4dbc5b7e9f518225 Mon Sep 17 00:00:00 2001 From: Fridolin Somers Date: Wed, 18 May 2022 17:50:13 -1000 Subject: [PATCH] Bug 30781: Fix warning in GetPreparedLetter Test by running : prove t/db_dependent/Letters.t Check you dont see warning : Use of uninitialized value $val in substitution iterator Signed-off-by: David Nind Signed-off-by: Katrin Fischer Signed-off-by: Tomas Cohen Arazi --- C4/Letters.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/C4/Letters.pm b/C4/Letters.pm index 9ed1de0e44..8ab0bb727e 100644 --- a/C4/Letters.pm +++ b/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}; } -- 2.39.5