- 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

@@ -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]:";
     }