diff options
| author | fukachan <fukachan> | 2004-12-19 11:26:33 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-12-19 11:26:33 +0000 |
| commit | 397e68ede351f054092b63616d4dbabda36044a8 (patch) | |
| tree | d05d6aedf661cce2d235da7864b1605d84a06529 /fml/lib/FML/Process/Kernel.pm | |
| parent | 3697f25c0c525085cf85b7d5414b0a4a0c43c48b (diff) | |
| download | fml8-397e68ede351f054092b63616d4dbabda36044a8.tar.gz fml8-397e68ede351f054092b63616d4dbabda36044a8.tar.bz2 fml8-397e68ede351f054092b63616d4dbabda36044a8.zip | |
$debug_module_regexp_list restricts debug regions.
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 29 |
1 files changed, 23 insertions, 6 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index d64226a9..33c87105 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Kernel.pm,v 1.248 2004/12/18 03:13:03 fukachan Exp $ +# $FML: Kernel.pm,v 1.249 2004/12/18 12:57:19 fukachan Exp $ # package FML::Process::Kernel; @@ -1548,11 +1548,28 @@ sub logdebug my (@c) = caller; if ($config->yes('use_debug')) { - $curproc->log_message($msg, { - msg_args => $msg_args, - level => 'debug', - caller => \@c, - }); + my ($package, $filename, $line) = @c; + + # XXX-TODO: ok? how to implement debug mask. + my $re = $config->get_as_array_ref('debug_module_regexp_list') || []; + if (@$re) { + my $regexp = ''; + for my $re (@$re) { $regexp .= $regexp ? "|^$re\$" : "^$re\$";} + if ($package =~ /($regexp)/) { + $curproc->log_message($msg, { + msg_args => $msg_args, + level => 'debug', + caller => \@c, + }); + } + } + else { + $curproc->log_message($msg, { + msg_args => $msg_args, + level => 'debug', + caller => \@c, + }); + } } } |