From be756d0fcd03d03a43d2d873391d6cf3e46c6662 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 18 Jun 2011 07:51:28 +0000
Subject: Using a thread safe message queue for logging, preparing for multi
 threading jobs

---
 lib/PerlDaemon/RunModules.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib/PerlDaemon/RunModules.pm')

diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm
index 5aa9f9a..6065c6a 100644
--- a/lib/PerlDaemon/RunModules.pm
+++ b/lib/PerlDaemon/RunModules.pm
@@ -4,6 +4,7 @@ package PerlDaemon::RunModules;
 
 use strict;
 use warnings;
+use threads qw(exit stringify);
 use Time::HiRes qw(gettimeofday tv_interval);
 
 sub new ($$) {
@@ -18,6 +19,7 @@ sub new ($$) {
 
         if (-d $modulesdir) {
                 $logger->logmsg("Loading modules from $modulesdir");
+
                 for my $module (<$modulesdir/*.pm>) {
                         $logger->logmsg("Loading $module");
                         eval "require '$module'";
@@ -54,8 +56,7 @@ sub new ($$) {
 
 sub do ($) {
 	my $self = shift;
-	my $conf = $self->{conf};
-	my $logger = $conf->{logger};
+	my $conf = $self->{conf}; my $logger = $conf->{logger};
 	my $modules = $conf->{modules};
 	my $scheduler = $conf->{scheduler};
 
-- 
cgit v1.2.3