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
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
