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

Tomas Doran bobtfish at bobtfish.net
Mon May 6 11:57:39 UTC 2013


The following commit has been merged in the master branch:
commit 362d0686f748aac1b889d2e7795795512a34f5fb
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Thu Aug 23 21:22:23 2012 +0100

    Fix daemonization

diff --git a/Changes b/Changes
index 3b5fd07..03c5526 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+  - Fix daemonization features provided by Message::Passing::Role::Script
+    to work on the command line again by exlicitly using MooX::Options
+
   - Fix Message::Passing::Input::FileTail to not die if the tail process
     is killed for any reason. It is instead re-spawned.. RT#78851
 
diff --git a/lib/Message/Passing/Role/Script.pm b/lib/Message/Passing/Role/Script.pm
index df37aea..4eb0e1f 100644
--- a/lib/Message/Passing/Role/Script.pm
+++ b/lib/Message/Passing/Role/Script.pm
@@ -1,5 +1,6 @@
 package Message::Passing::Role::Script;
 use Moo::Role;
+use MooX::Options;
 use MooX::Types::MooseLike::Base qw/ Bool Str /;
 use Getopt::Long qw(:config pass_through);
 use POSIX qw(setuid setgid);
@@ -8,24 +9,26 @@ use namespace::clean -except => 'meta';
 
 requires 'build_chain';
 
-has daemonize => (
+option daemonize => (
     is => 'ro',
     isa => Bool,
     default => sub { 0 },
 );
 
-has io_priority => (
+option io_priority => (
     isa => sub { $_[0] =~ /^(none|be|rt|idle)$/ },
     coerce => sub { lc $_[0] },
     is => 'ro',
     predicate => "_has_io_priority",
+    format => 's',
 );
 
 foreach my $name (qw/ user pid_file /) {
-    has $name => (
+    option $name => (
         isa => Str,
         is => 'ro',
         predicate => "_has_$name",
+        format => 's',
     );
 }
 

-- 
libmessage-passing-perl Debian packaging



More information about the Pkg-perl-cvs-commits mailing list