On 26 March 2012 14:10, Pascal Terjan <[email protected]> wrote: > > > On Sun, Mar 25, 2012 at 23:19, <[email protected]> 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}; >> >> > $plog_color / $plog_level should be renamed everywhere
Yes I know, it' in my queue with other commits. Will be dcommited tonight
