blob: 923a56c8988e956ffe9ad7d11caa24b987d76d8f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
<br><br><div class="gmail_quote">On Sun, Mar 25, 2012 at 23:19, <span dir="ltr"><<a href="mailto:root@mageia.org">root@mageia.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<u></u>
<div>
<div>
<dl>
<dt>Revision</dt> <dd>3800</dd>
<dt>Author</dt> <dd>tv</dd>
<dt>Date</dt> <dd>2012-03-26 00:19:25 +0200 (Mon, 26 Mar 2012)</dd>
</dl>
<h3>Log Message</h3>
<pre>(plog_init) enable perl_checker to check callers</pre>
<h3>Modified Paths</h3>
<ul>
<li><a href="#1364bf1562a5026a_build_systemiurttrunklibIurtUtilpm">build_system/iurt/trunk/lib/Iurt/Util.pm</a></li>
</ul>
</div>
<div><pre><a>Modified: build_system/iurt/trunk/lib/Iurt/Util.pm</a>
===================================================================
--- 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};
<font face="arial"><span style="white-space:normal">
</span></font></pre></div>
</div>
</blockquote></div>$plog_color / $plog_level should be renamed everywhere
|
