diff --git a/PerlRPG/Console.pm b/PerlRPG/Console.pm index 5d63341..be10138 100644 --- a/PerlRPG/Console.pm +++ b/PerlRPG/Console.pm @@ -26,17 +26,15 @@ $LogLevel = DEBUG; @EXPORT = qw/DEBUG INFO STATUS WARN ERROR CRIT FATAL LogData/; sub LogData { - my($level, $log, $file, $line)=@_; - if(!$file || !$line) { - (undef, $file, $line)=caller(); - } + my($level, $log, @args)=@_; + my($file, $line); + (undef, $file, $line)=caller(); if($level < DEBUG || $level > FATAL) { - LogData(ERROR, "Invalid log level, Next log.", $file, $line); $level = FATAL; } return if($level < $LogLevel); - my $str = sprintf("[%6s] %s %s\n", $debugnames[$level], scalar localtime(), $log); + my $str = sprintf("[%6s] %s $log\n", $debugnames[$level], scalar localtime(), @args); my $stack; if($level >= $StackTraceLevel) {