aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-25 22:19:25 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-25 22:19:25 +0000
commit27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd (patch)
treee1e1faa9b0be1f29b58c7576834880dec4e0d4bc /lib
parentdbe8928d695c9a8e9ab91ab64f2b58a2e237b33f (diff)
downloadiurt-27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd.tar
iurt-27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd.tar.gz
iurt-27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd.tar.bz2
iurt-27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd.tar.xz
iurt-27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd.zip
(plog_init) enable perl_checker to check callers
Diffstat (limited to 'lib')
-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};