[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