diff -u -r ./lib/Log/Handler/Output.pm /home/jkeenan/Downloads/Log-Handler-0.88/lib/Log/Handler/Output.pm

diff -u -r ./lib/Log/Handler/Output.pm /home/jkeenan/Downloads/Log-Handler-0.88/lib/Log/Handler/Output.pm
--- ./lib/Log/Handler/Output.pm 2015-06-15 22:15:10.000000000 -0400
+++ /home/jkeenan/Downloads/Log-Handler-0.88/lib/Log/Handler/Output.pm 2019-07-16 15:33:43.199901580 -0400
@@ -64,7 +64,12 @@
# is that each output can have their own time/date format
# and the code which is executed can return another value.
foreach my $r (@{$self->{wanted_pattern}}) {
- $wanted->{$r->{name}} = &{$r->{code}}($self, $level);
+ unless ($r->{name} eq 'hostname') {
+ $wanted->{$r->{name}} = &{$r->{code}}($self, $level);
+ }
+ else {
+ $wanted->{$r->{name}} = $r->{code}();
+ }
}

if ($self->{message_pattern}) {
diff -u -r ./t/012-handler-message-pattern.t /home/jkeenan/Downloads/Log-Handler-0.88/t/012-handler-message-pattern.t
--- ./t/012-handler-message-pattern.t 2013-11-03 14:27:58.000000000 -0500
+++ /home/jkeenan/Downloads/Log-Handler-0.88/t/012-handler-message-pattern.t 2019-07-16 15:30:13.203358617 -0400
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 15;
+use Test::More tests => 17;
use Log::Handler;

my $CHECKED = 0;
@@ -34,7 +34,10 @@

my $log = Log::Handler->new();

-$log->add(
+ok(defined $log, "new() returned defined object");
+isa_ok($log, 'Log::Handler');
+
+my $rv = $log->add(
forward => {
forward_to => \&check_struct,
maxlevel => 'debug',
@@ -44,7 +47,7 @@
}
);

-ok(1, 'new');
+ok($rv, "add() returned true value");

$log->debug('foo');