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

[Pascal Terjan]

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<#1364bf1562a5026a_build_systemiurttrunklibIurtUtilpm>
>
>  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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: </pipermail/mageia-dev/attachments/20120326/53dae678/attachment.html>