[log4perl-devel] panic in sv_setpvn

[Martin J. E. <mar...@ea...>]

panic: sv_setpvn called with negative strlen at /home/perlbrew//perls/perl-5.14.2/lib/site_perl/5.14.2/Log/Log4perl/Layout/PatternLayout.pm line 358.

That line in my distribution is:

##################################################
sub shrink_category {
##################################################
     my($category, $len) = @_;

     my @components = split /\.|::/, $category;     # <-------------- here

     if(@components > $len) {
         splice @components, 0, @components - $len;
         $category = join '.', @components;
     }

     return $category;
}

perl -MLog::Log4perl -le 'print $Log::Log4perl::VERSION;'
1.36

This is Perl 5.14.2 on Linux 32 bit machine built as default via perlbrew.

Any ideas.

Martin
-- 
Martin J. Evans
Easysoft Limited
http://www.easysoft.com