summaryrefslogtreecommitdiff
path: root/lib/PerlDaemon
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PerlDaemon')
-rw-r--r--lib/PerlDaemon/Logger.pm3
-rw-r--r--lib/PerlDaemon/PerlDaemon.pl6
-rw-r--r--lib/PerlDaemon/RunModules.pm2
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;