From 62db99d2b1297888d984118d0679a289024e2b8e Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Tue, 24 May 2011 06:59:48 +0000
Subject: added daemon.daemonize option (daemon can now start in the foreground
 if wished)

---
 lib/PerlDaemon/RunModules.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm
index ba1030a..ecdb810 100644
--- a/lib/PerlDaemon/RunModules.pm
+++ b/lib/PerlDaemon/RunModules.pm
@@ -49,10 +49,11 @@ sub do ($) {
                 $logger->warn("No modules are loaded!");
         } else {
                 while (my ($k, $v) = each %$modules) {
-                          
+                        my $now = gettimeofday;
+#$logger->logmsg(tv_interval($now, $scheduler->{$k}{lastrun}));
                         $logger->logmsg("Triggering $k");
-                        $scheduler->{$k}{lastrun} = gettimeofday;
-                        $v->do();
+                        $scheduler->{$k}{lastrun} = $now;
+                        #$v->do();
                 }
         }
 }
-- 
cgit v1.2.3