Bug#565703: perl segaults under -t mode

[Raphael Geissert]

Package: perl-base
Version: 5.10.1-8

Hi,

While testing lintian under the -t flag I got a segmentation fault.
Running lintian under perldebug on the same case produces a slightly
different output without any segmentation fault but with a failed
assertion:

Assertion !((gv)->sv_flags & 0x00004000) failed: file "gv.c", line 272
at /usr/lib/perl/5.10/Fcntl.pm line 173.

You should be able to reproduce it by running lintian with the
following commands:
cd `mktemp -d`
cp -a /usr/share/lintian root
perl -wt /usr/bin/lintian --root  root/ path/to/some.deb

The backtrace from the normal perl binary is:

#0  do_clean_objs (my_perl=0x94df008, ref=0x971b098) at sv.c:490
        target = 0x0
#1  0x080e12fd in S_visit (my_perl=0x94df008, f=0x80ec7f0
<do_clean_objs>, flags=2048, mask=2048) at sv.c:441
        svend = 0x971b248
        sv = 0x971b0a8
        sva = 0x971a258
        visited = 3
#2  0x080e1359 in Perl_sv_clean_objs (my_perl=0x94df008) at sv.c:549
No locals.
#3  0x0807de85 in perl_destruct (my_perl=0x94df008) at perl.c:833
        destruct_level = 0 '\000'
        hv = <value optimized out>
#4  0x08064262 in main (argc=6, argv=0xbfd7af44, env=0xbfd7af60) at
perlmain.c:119
        exitstatus = <value optimized out>

Please let me know if you need more info.

Cheers,
-- 
Raphael Geissert - Debian Developer
www.debian.org - get.debian.net