added daemon.daemonize option (daemon can now start in the foreground if wished)

1 files changed, 4 insertions, 3 deletions

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();
                 }
         }
 }