@@ -, +, @@ --- C4/Dates.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) --- a/C4/Dates.pm +++ a/C4/Dates.pm @@ -105,7 +105,7 @@ sub dmy_map { my $xsub = $dmy_subs{$dformat}; $debug and print STDERR "xsub: $xsub \n"; if ( $val =~ /$re/ ) { - my $aref = eval {$xsub}; + my $aref = eval $xsub; if ($dformat eq 'rfc822') { $aref = _abbr_to_numeric($aref, $dformat); pop(@{$aref}); #pop off tz offset because we are not setup to handle tz conversions just yet --