summaryrefslogtreecommitdiff
path: root/lib/PerlDaemon
diff options
context:
space:
mode:
authorPaul Buetow <paul@buetow.org>2022-04-21 23:31:45 +0200
committerPaul Buetow <paul@buetow.org>2022-04-21 23:31:45 +0200
commit70a177bfab34c1ea5146a33ec718e9db77fa20d6 (patch)
treebfb460d7e5b25d86d43d02b13202fed62d4f648f /lib/PerlDaemon
parentf5f29f37dd40b5446acdd59629c604af62bf8e56 (diff)
Make PerlDaemon run on OpenBSD 7.1
Diffstat (limited to 'lib/PerlDaemon')
-rw-r--r--lib/PerlDaemon/Logger.pm3
-rw-r--r--lib/PerlDaemon/RunModules.pm2
2 files changed, 0 insertions, 5 deletions
diff --git a/lib/PerlDaemon/Logger.pm b/lib/PerlDaemon/Logger.pm
index 52b5eb7..7285588 100644
--- a/lib/PerlDaemon/Logger.pm
+++ b/lib/PerlDaemon/Logger.pm
@@ -2,8 +2,6 @@ package PerlDaemon::Logger;
use strict;
use warnings;
-use threads;
-use threads::shared;
use Shell qw(mv);
use POSIX qw(strftime);
@@ -23,7 +21,6 @@ sub new ($$) {
$SELF = bless { conf => $conf }, $class;
$SELF->{queue} = [];
- share $SELF->{queue};
return $SELF;
}
diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm
index 1b6b486..147325a 100644
--- a/lib/PerlDaemon/RunModules.pm
+++ b/lib/PerlDaemon/RunModules.pm
@@ -4,7 +4,6 @@ package PerlDaemon::RunModules;
use strict;
use warnings;
-use threads qw(exit stringify);
use Time::HiRes qw(gettimeofday tv_interval);
sub new ($$) {
@@ -82,7 +81,6 @@ sub do ($) {
$scheduler->{$k}{lastrun} = $now;
$v->do();
-
}
}
}