- 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)
This commit is contained in:
parent
66d3a96dd1
commit
59f0b9e5d4
|
@ -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]:";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user