diff options
Diffstat (limited to 'lib/PerlDaemon/RunModules.pm')
| -rw-r--r-- | lib/PerlDaemon/RunModules.pm | 7 |
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(); } } } |
