From 3c2d0bf09c6aeb9e5eaf8db2b8e19aa1591822db Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Mon, 23 May 2011 06:44:14 +0000
Subject: lastrun time tracking before $v->do()

---
 lib/PerlDaemon/RunModules.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/PerlDaemon/RunModules.pm')

diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm
index 0b814f0..d6e4a21 100644
--- a/lib/PerlDaemon/RunModules.pm
+++ b/lib/PerlDaemon/RunModules.pm
@@ -48,8 +48,8 @@ sub do ($) {
         } else {
                 while (my ($k, $v) = each %$modules) {
                         $logger->logmsg("Triggering $k");
-                        $v->do();
                         $scheduler->{$k}{lastrun} = gettimeofday;
+                        $v->do();
                 }
         }
 }
-- 
cgit v1.2.3