From 9cfb380f544348a592bbc94a21cc0754de0be288 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 --- 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.30.2