diff options
| author | fukachan <fukachan> | 2004-12-18 03:13:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-12-18 03:13:03 +0000 |
| commit | 93379434d0e81111d9476f14654b65b862f589db (patch) | |
| tree | 06cfcac02032c8aa05581b0a16b9d914154faa66 | |
| parent | 3f038e45bfec1b4742b5763aba3c19ed00144f1a (diff) | |
| download | fml8-93379434d0e81111d9476f14654b65b862f589db.tar.gz fml8-93379434d0e81111d9476f14654b65b862f589db.tar.bz2 fml8-93379434d0e81111d9476f14654b65b862f589db.zip | |
logdebug() works if debug = yes defined.
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 88414d1f..2ea12d1a 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.246 2004/12/09 04:53:42 fukachan Exp $ +# $FML: Kernel.pm,v 1.247 2004/12/15 13:53:52 fukachan Exp $ # package FML::Process::Kernel; @@ -1544,9 +1544,10 @@ sub logerror sub logdebug { my ($curproc, $msg, $msg_args) = @_; - my (@c) = caller; + my $config = $curproc->config(); + my (@c) = caller; - if (0) { + if ($config->yes('debug')) { $curproc->log_message($msg, { msg_args => $msg_args, level => 'debug', |