diff options
Diffstat (limited to 'lib/PerlDaemon')
| -rw-r--r-- | lib/PerlDaemon/Logger.pm | 3 | ||||
| -rw-r--r-- | lib/PerlDaemon/PerlDaemon.pl | 6 | ||||
| -rw-r--r-- | lib/PerlDaemon/RunModules.pm | 2 |
3 files changed, 1 insertions, 10 deletions
diff --git a/lib/PerlDaemon/Logger.pm b/lib/PerlDaemon/Logger.pm index a5d632d..0cf9c65 100644 --- a/lib/PerlDaemon/Logger.pm +++ b/lib/PerlDaemon/Logger.pm @@ -18,7 +18,6 @@ sub new ($$) { die "Instance already exists" if defined $SELF; $SELF = bless { conf => $conf }, $class; - $SELF->{queue} = []; return $SELF; @@ -29,13 +28,11 @@ sub logmsg ($$) { my $conf = $self->{conf}; my $logline = localtime()." (PID $$): $msg\n"; - { lock $self->{queue}; push @{$self->{queue}}, $logline; } $self->flushlogs(); - return undef; } diff --git a/lib/PerlDaemon/PerlDaemon.pl b/lib/PerlDaemon/PerlDaemon.pl index af848dc..3f5765a 100644 --- a/lib/PerlDaemon/PerlDaemon.pl +++ b/lib/PerlDaemon/PerlDaemon.pl @@ -1,7 +1,5 @@ #!/usr/bin/perl -# PerlDaemon (c) 2010, 2011, Dipl.-Inform. (FH) Paul Buetow (http://perldaemon.buetow.org) - use strict; use warnings; @@ -166,7 +164,7 @@ sub daemonloop ($) { my $timediff = tv_interval($lastrun, $now); if ($timediff >= $loopinterval) { - $lastrun = $now; + $lastrun = $now; $rmodule->do(); alive $conf; } @@ -218,5 +216,3 @@ if ($conf->{'daemon.daemonize'} ne 'yes') { sighandlers $conf; daemonloop $conf; - - diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm index 147325a..8caf858 100644 --- a/lib/PerlDaemon/RunModules.pm +++ b/lib/PerlDaemon/RunModules.pm @@ -1,5 +1,3 @@ -# PerlDaemon (c) 2010, 2011, 2015, Dipl.-Inform. (FH) Paul Buetow (http://perldaemon.buetow.org) - package PerlDaemon::RunModules; use strict; |
