X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Flogger.pl;fp=src%2Flogger.pl;h=2a5d1d32927cc8af01ef52364f8e854453d9abda;hb=5abe91c89b3419d9ee76791b04ac091fe1e7da81;hp=03252aff7dddefd17536c6f13d85c33da100f786;hpb=ab9e7fede8743d1aa47c9d46cf830239d63fc1e0;p=infobot.git diff --git a/src/logger.pl b/src/logger.pl index 03252af..2a5d1d3 100644 --- a/src/logger.pl +++ b/src/logger.pl @@ -171,7 +171,7 @@ sub compress { } sub __output { - my ($what,$color,$message) = @_; + my ($color,$what,$message) = @_; my (undef,undef,$line,$subroutine,undef) = caller(2); use String::Escape qw(); status("$color!$what!$ob ".$subroutine.'['.$line.'] '.String::Escape::backslash($message));