Lines 213-220
sub output_pref {
Link Here
|
213 |
and return |
213 |
and return |
214 |
if $dt and $str; |
214 |
if $dt and $str; |
215 |
|
215 |
|
216 |
$dt = eval { dt_from_string( $str ) } if $str; |
216 |
if ( $str ) { |
217 |
carp "Invalid date '$str' passed to output_pref\n" if $@; |
217 |
local $@; |
|
|
218 |
$dt = eval { dt_from_string( $str ) }; |
219 |
carp "Invalid date '$str' passed to output_pref\n" if $@; |
220 |
} |
218 |
|
221 |
|
219 |
return unless defined $dt; |
222 |
return unless defined $dt; |
220 |
|
223 |
|
221 |
- |
|
|