From ce255ff5a1257db57424603caac2b4bfca3c7694 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Thu, 21 Apr 2022 23:45:23 +0200
Subject: release v1.3

---
 lib/PerlDaemon/Logger.pm     | 3 ---
 lib/PerlDaemon/PerlDaemon.pl | 6 +-----
 lib/PerlDaemon/RunModules.pm | 2 --
 3 files changed, 1 insertion(+), 10 deletions(-)

(limited to 'lib/PerlDaemon')

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;
-- 
cgit v1.2.3