diff options
Diffstat (limited to 'lib/Iurt/Util.pm')
-rw-r--r-- | lib/Iurt/Util.pm | 7 |
1 files changed, 3 insertions, 4 deletions
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}; |