[Mageia-dev] [soft-commits] [3800] (plog_init) enable perl_checker to check callers

[Thierry Vignaud]

On 26 March 2012 14:10, Pascal Terjan <pterjan at gmail.com> wrote:
>
>
> On Sun, Mar 25, 2012 at 23:19, <root at 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};
>>
>>
> $plog_color / $plog_level should be renamed everywhere

Yes I know, it' in my queue with other commits.
Will be dcommited tonight