aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Iurt/Util.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Iurt/Util.pm')
-rw-r--r--lib/Iurt/Util.pm7
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};