[Koha-bugs] [Bug 6679] Fixing code so it passes basic Perl::Critic tests

[bugzilla-daemon at bugs.koha-community.org]

http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=6679

--- Comment #223 from Jonathan Druart <jonathan.druart at biblibre.com> ---
This has not been reverted.

Tomas,
I would say you could quickly patch with

diff --git a/C4/Dates.pm b/C4/Dates.pm
index 6ed9588..d7be584 100644
--- a/C4/Dates.pm
+++ b/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;

In a first time.

You can blame me because I get the error too (5.20.1), sorry about that.

-- 
You are receiving this mail because:
You are watching all bug changes.