|
From: <msc...@ao...> - 2003-01-25 16:37:23
|
In a message dated 1/24/2003 1:14:34 PM Eastern Standard Time, Kevin Goess <ke...@go...> writes:
>\$message = [map { ref \$_ eq "HASH"
> && exists \$_->{filter}
> && ref \$_->{filter} eq "CODE" ?
You had it right here but checked it in differently :) -- so it failed test #49 in 002Logger.t. Here's the fix, I've checked it in:
diff -a -u -r1.44 Logger.pm
--- lib/Log/Log4perl/Logger.pm 24 Jan 2003 20:09:55 -0000 1.44
+++ lib/Log/Log4perl/Logger.pm 25 Jan 2003 16:35:55 -0000
@@ -211,7 +211,9 @@
# => coderef()
#
- \$message = [map { ref \$_ eq "HASH" && exists \$_->{filter} && \$_->{filter} eq 'CODE' ?
+ \$message = [map { ref \$_ eq "HASH" &&
+ exists \$_->{filter} &&
+ ref \$_->{filter} eq 'CODE' ?
\$_->{filter}->(\$_->{value}) :
ref \$_ eq "CODE" ?
\$_->() : \$_
--
-- Mike
############################
# Mike Schilli #
# log...@pe... #
# http://perlmeister.com #
# log4perl.sourceforge.net #
############################
|