@@ -, +, @@ output_pref $dt = eval { dt_from_string( $str ) } if $str; carp "Invalid date '$str' passed to output_pref\n" if $@; prove t/DateUtils.t at t/DateUtils.t line 233. --- Koha/DateUtils.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) --- a/Koha/DateUtils.pm +++ a/Koha/DateUtils.pm @@ -213,8 +213,10 @@ sub output_pref { and return if $dt and $str; - $dt = eval { dt_from_string( $str ) } if $str; - carp "Invalid date '$str' passed to output_pref\n" if $@; + if ( $str ) { + $dt = eval { dt_from_string( $str ) }; + carp "Invalid date '$str' passed to output_pref\n" if $@; + } return unless defined $dt; --