Bug#624759: segfault in libperl5.10

[vlakhadzhi]

Package: libperl5.10
Version: 5.10.1-17
Severity: important
Tags: squeeze

Perl segfaults while clean up before exiting from test script:

---------------- begin of test script -----------------
#!/usr/bin/perl

use warnings;
use strict;
use XML::Twig;

my $t = XML::Twig->new;
$t->set_root(my $root = XML::Twig::Elt->new('root'));

for(my $i=0; $i<20000; $i++) {
        print "$i\n" unless $i%1000;
        $root->insert_new_elt('child');
}

print "=============\n";
--------------- end of test script ------------------

$ ./test
0
1000
2000
3000
4000
5000
6000
7000
8000
9000
10000
11000
12000
13000
14000
15000
16000
17000
18000
19000
=============
Segmentation fault
$dmesg
....
[604664.460062] test[9279]: segfault at 7fffcebe3fd8 ip 00007fc8c892e310 sp
00007fffcebe3fe0 error 6 in libperl.so.5.10.1[7fc8c8853000+164000]



-- System Information:
Debian Release: 6.0.1
  APT prefers stable-updates
  APT policy: (500, 'stable-updates'), (500, 'stable')
Architecture: amd64 (x86_64)

Kernel: Linux 2.6.32-5-amd64 (SMP w/2 CPU cores)
Locale: LANG=ru_RU.utf8, LC_CTYPE=ru_RU.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash

Versions of packages libperl5.10 depends on:
ii  libc6                         2.11.2-10  Embedded GNU C Library: Shared lib
ii  perl-base                     5.10.1-17  minimal Perl system

libperl5.10 recommends no packages.

libperl5.10 suggests no packages.

-- no debconf information