jobqueue plugin log message modification was not passed down useing after modifier

Author: nupfel

lib/Daemonise/Plugin/Daemon.pm

@@ -185,8 +185,10 @@ after 'configure' => sub {
 
 =cut
 
-after 'log' => sub {
-    my ($self, $msg) = @_;
+around 'log' => sub {
+    my ($orig, $self, $msg) = @_;
+
+    $self->$orig($msg);
 
     return unless ($self->has_logfile);
 

lib/Daemonise/Plugin/Syslog.pm

@@ -108,8 +108,10 @@ after 'configure' => sub {
 
 =cut
 
-after 'log' => sub {
-    my ($self, $msg) = @_;
+around 'log' => sub {
+    my ($orig, $self, $msg) = @_;
+
+    $self->$orig($msg);
 
     return unless $self->syslog_log;