| Subject: | useless use of string eval in Log4perl.pm line 109 |
Using eval just to assign a variable a value is a waste.
Simply replace
my $string = "\$${caller_pkg}::_default_logger = \$logger";
eval $string or die "$@";
with
${ $caller_pkg . '::_default_logger'} = $logger;
Cheers