From 70a177bfab34c1ea5146a33ec718e9db77fa20d6 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Thu, 21 Apr 2022 23:31:45 +0200
Subject: Make PerlDaemon run on OpenBSD 7.1

---
 lib/PerlDaemon/Logger.pm     | 3 ---
 lib/PerlDaemon/RunModules.pm | 2 --
 2 files changed, 5 deletions(-)

(limited to 'lib/PerlDaemon')

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