From: Tyler Riddle Date: Wed, 10 Oct 2012 23:03:26 +0000 (-0700) Subject: adjust log levels to work better with debug level output X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bfbbdcff80566b79f101bfd9fdf6b41a0cf43289;p=scpubgit%2FObject-Remote.git adjust log levels to work better with debug level output --- diff --git a/lib/Object/Remote/MiniLoop.pm b/lib/Object/Remote/MiniLoop.pm index 463ca79..ab8e85a 100644 --- a/lib/Object/Remote/MiniLoop.pm +++ b/lib/Object/Remote/MiniLoop.pm @@ -107,7 +107,7 @@ sub watch_time { sub unwatch_time { my ($self, $id) = @_; - log_debug { "Removing timer with id of '$id'" }; + log_trace { "Removing timer with id of '$id'" }; @$_ = grep !($_ eq $id), @$_ for $self->_timers; return; } diff --git a/lib/Object/Remote/WatchDog.pm b/lib/Object/Remote/WatchDog.pm index 170b2b2..3d47ac4 100644 --- a/lib/Object/Remote/WatchDog.pm +++ b/lib/Object/Remote/WatchDog.pm @@ -38,7 +38,7 @@ sub reset { die "Attempt to reset the watchdog before it was constructed" unless defined $WATCHDOG; - log_trace { "Watchdog has been reset" }; + log_debug { "Watchdog has been reset" }; alarm($WATCHDOG->timeout); } @@ -48,6 +48,7 @@ sub reset { #it makes sense to still terminate the process sub shutdown { my ($self) = @_; + log_debug { "Watchdog is shutting down" }; alarm(0); }