dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- correction of a hook in the Logger, which made this module incompatible with perl 5.10.5 / debian squeeze

Browse Source 
(affectations and substitutions are now expanded to multiple lines)

(references #630)
This commit is contained in:
David COUTADEUR 2014-03-31 21:07:06 +00:00
parent 66d3a96dd1
commit 59f0b9e5d4
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Logger.pm
View File

@ -12,7 +12,8 @@ sub lmLog {
die("Level is required") unless ($level); die("Level is required") unless ($level);
my $call; my $call;
my @tmp = caller(); my @tmp = caller();
my $module = $tmp[0] =~ s/.+:://gr . "($tmp[2]): "; (my $module = $tmp[0]) =~ s/.+:://g;
$module .= "($tmp[2]): ";
unless ( $level eq 'debug' ) { unless ( $level eq 'debug' ) {
$call = "$tmp[1] $tmp[2]:"; $call = "$tmp[1] $tmp[2]:";
} }