From 59f0b9e5d4b247e4152ae143996ea6e54b821530 Mon Sep 17 00:00:00 2001 From: David COUTADEUR Date: Mon, 31 Mar 2014 21:07:06 +0000 Subject: [PATCH] - correction of a hook in the Logger, which made this module incompatible with perl 5.10.5 / debian squeeze (affectations and substitutions are now expanded to multiple lines) (references #630) --- lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm index 31e05706b..f8d9fe134 100755 --- a/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm +++ b/lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm @@ -12,7 +12,8 @@ sub lmLog { die("Level is required") unless ($level); my $call; my @tmp = caller(); - my $module = $tmp[0] =~ s/.+:://gr . "($tmp[2]): "; + (my $module = $tmp[0]) =~ s/.+:://g; + $module .= "($tmp[2]): "; unless ( $level eq 'debug' ) { $call = "$tmp[1] $tmp[2]:"; }