diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-25 22:19:25 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-25 22:19:25 +0000 |
| commit | 27109ffcd5b98f74f8d1bf099d9ba76db3ac86cd (patch) | |
| tree | e1e1faa9b0be1f29b58c7576834880dec4e0d4bc | |
| parent | dbe8928d695c9a8e9ab91ab64f2b58a2e237b33f (diff) | |
| download | iurt-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
| -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}; |