From f01a1b81735086acb446d5c4b67fbdb406e6e6f2 Mon Sep 17 00:00:00 2001
From: "Paul Buetow (europa)" <paul@buetow.org>
Date: Sun, 17 May 2015 10:11:18 +0100
Subject: retab and restyle the source

---
 lib/PerlDaemon/ThreadedLogger.pm | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

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

diff --git a/lib/PerlDaemon/ThreadedLogger.pm b/lib/PerlDaemon/ThreadedLogger.pm
index a5a7776..f773640 100644
--- a/lib/PerlDaemon/ThreadedLogger.pm
+++ b/lib/PerlDaemon/ThreadedLogger.pm
@@ -6,40 +6,40 @@ use warnings;
 $| = 1;
 
 sub new ($$) {
-	my ($class, $conf) = @_;
-	my $self = $SELF = bless { conf => $conf }, $class;
+  my ($class, $conf) = @_;
+  my $self = $SELF = bless { conf => $conf }, $class;
 
-        return $self;
+  return $self;
 }
 
 sub _pushmsg ($$) {
-	my ($self, $msg) = @_;
-	my $conf = $self->{conf};
-        my $msgqueue = $conf->{msgqueue};
+  my ($self, $msg) = @_;
+  my $conf = $self->{conf};
+  my $msgqueue = $conf->{msgqueue};
 
-        push @$msgqueue, $msg;
+  push @$msgqueue, $msg;
 }
 
 sub logmsg ($$) {
-	my ($self, $msg) = @_;
+  my ($self, $msg) = @_;
 
-        my $logline = localtime()." (PID $$): $msg\n";
-        $self->_pushmsg($logline);
+  my $logline = localtime()." (PID $$): $msg\n";
+  $self->_pushmsg($logline);
 
-        return undef;
+  return undef;
 }
 
 sub err ($$) {
-	my ($self, $msg) = @_;
-	$self->logmsg($msg);
-	die "$msg\n";
+  my ($self, $msg) = @_;
+  $self->logmsg($msg);
+  die "$msg\n";
 }
 
 sub warn ($$) {
-	my ($self, $msg) = @_;
-	$self->logmsg("WARNING: $msg");
+  my ($self, $msg) = @_;
+  $self->logmsg("WARNING: $msg");
 
-        return undef;
+  return undef;
 }
 
 1;
-- 
cgit v1.2.3