From 149b3c7092514ef76f2cc627677f36e90ee40466 Mon Sep 17 00:00:00 2001
From: Felix Ostmann <felix.ostmann@gmail.com>
Date: Fri, 5 Mar 2021 08:31:52 +0100
Subject: [PATCH] carp warn user from perspective of caller and already ignore
 Log::Log4perl::Appender-Class

---
 lib/Log/Log4perl/Appender.pm | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lib/Log/Log4perl/Appender.pm b/lib/Log/Log4perl/Appender.pm
index 4f8148e1..e72aedaa 100644
--- a/lib/Log/Log4perl/Appender.pm
+++ b/lib/Log/Log4perl/Appender.pm
@@ -175,8 +175,6 @@ sub log {
             if (ref $p->{message} eq "ARRAY") {
                 for my $i (0..$#{$p->{message}}) {
                     if( !defined $p->{message}->[ $i ] ) {
-                        local $Carp::CarpLevel =
-                        $Carp::CarpLevel + $Log::Log4perl::caller_depth + 1;
                         carp "Warning: Log message argument #" . 
                              ($i+1) . " undefined";
                     }