On Sun, Mar 25, 2012 at 23:19, <root@mageia.org> wrote:

Revision

3800

Author

tv

Date

2012-03-26 00:19:25 +0200 (Mon, 26 Mar 2012)

Log Message

(plog_init) enable perl_checker to check callers

Modified Paths

• build_system/iurt/trunk/lib/Iurt/Util.pm

Modified: build_system/iurt/trunk/lib/Iurt/Util.pm
===================================================================
--- build_system/iurt/trunk/lib/Iurt/Util.pm	2012-03-25 20:20:47 UTC (rev 3799)
+++ build_system/iurt/trunk/lib/Iurt/Util.pm	2012-03-25 22:19:25 UTC (rev 3800)
@@ -67,10 +67,9 @@
 );
 
 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};