[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

[Tomas Doran]

The following commit has been merged in the master branch:
commit ab30c8dfdf75f65ee2a43dcdce0ce55e46e163c4
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sun Apr 15 17:33:18 2012 +0100

    Add daemonize, need pid file next

diff --git a/lib/Log/Stash.pm b/lib/Log/Stash.pm
index 59810a7..f49df2e 100644
--- a/lib/Log/Stash.pm
+++ b/lib/Log/Stash.pm
@@ -7,6 +7,8 @@ use String::RewritePrefix;
 use AnyEvent;
 use JSON::XS;
 use Try::Tiny;
+use Getopt::Long qw(:config pass_through);
+use POSIX;
 use namespace::autoclean;
 use 5.8.4;
 
@@ -55,9 +57,29 @@ sub build_chain {
         };
 }
 
+has daemonize => (
+    is => 'ro',
+    isa => 'Bool',
+    default => 0,
+);
+
+sub deamonize_if_needed {
+    my ($self) = @_;
+    my $daemon = $self->daemonize;
+    if ($daemon) {
+        fork && exit;
+        POSIX::setsid();
+        fork && exit;
+        chdir '/';
+        umask 0;
+    }
+}
+
 sub start {
     my $class = shift;
-    run_log_server $class->new_with_options(@_)->build_chain;
+    my $instance = $class->new_with_options(@_);
+    $instance->deamonize_if_needed;
+    run_log_server $instance->build_chain;
 }
 
 my $json_type = subtype

-- 
libmessage-passing-perl Debian packaging