From 27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sun, 25 Mar 2012 22:19:25 +0000 Subject: (plog_init) enable perl_checker to check callers --- lib/Iurt/Util.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lib') diff --git a/lib/Iurt/Util.pm b/lib/Iurt/Util.pm index 5e2f509..b86c898 100644 --- a/lib/Iurt/Util.pm +++ b/lib/Iurt/Util.pm @@ -67,10 +67,9 @@ my %plog_level = ( ); sub plog_init { - $plog_name = shift; - $plog_file = shift; - $plog_level = shift @_ || 9999; - $plog_color = shift @_ || 0; + ($plog_name, $plog_file, $o_plog_level, $o_plog_color) = @_; + $plog_level ||= 9999; + $plog_color ||= 0; $plog_level = 9999 if $ENV{PLOG_DEBUG}; -- cgit v1.2.1