diff options
| author | fukachan <fukachan> | 2005-12-18 11:37:48 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2005-12-18 11:37:48 +0000 |
| commit | 236a64432f6ca71d7505a483a94ace4e8960f60f (patch) | |
| tree | 7050f554323ca4fdb377eff2e41cf024ae1b5fff /fml | |
| parent | 8a6d99abab1aad04cc7e41ee9c4a5b7ef1593f57 (diff) | |
| download | fml8-236a64432f6ca71d7505a483a94ace4e8960f60f.tar.gz fml8-236a64432f6ca71d7505a483a94ace4e8960f60f.tar.bz2 fml8-236a64432f6ca71d7505a483a94ace4e8960f60f.zip | |
add more debug codes
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Command.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/fml/lib/FML/Command.pm b/fml/lib/FML/Command.pm index 1de1dd47..6454f343 100644 --- a/fml/lib/FML/Command.pm +++ b/fml/lib/FML/Command.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: Command.pm,v 1.48 2004/06/27 06:08:55 fukachan Exp $ +# $FML: Command.pm,v 1.49 2004/07/23 15:58:59 fukachan Exp $ # # XXX @@ -342,11 +342,15 @@ sub AUTOLOAD $lock_channel = $command->lock_channel() || $default_lock_channel; } + $curproc->logdebug("$pkg lock=$need_lock channel=$lock_channel"); + # run the actual process if ($command->can('process')) { - $curproc->lock($lock_channel) if $need_lock; + $curproc->logdebug("$pkg lock") if $need_lock; + $curproc->lock($lock_channel) if $need_lock; $command->process($curproc, $command_args); - $curproc->unlock($lock_channel) if $need_lock; + $curproc->logdebug("$pkg unlock") if $need_lock; + $curproc->unlock($lock_channel) if $need_lock; } else { $curproc->logerror("${pkg} has no process method"); |