From 0bb6f4b2ccdb90b5843e2917860b1bb13c51980e Mon Sep 17 00:00:00 2001
From: Ryan Shepherd <rotaryprophet@gmail.com>
Date: Mon, 24 Sep 2018 11:10:40 -0400
Subject: [PATCH] Support for sprintf style LogData

---
 PerlRPG/Console.pm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

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) {