Bug#753444: perl-base - Segfaults in libperl.so.5.18

[Bastian Blank]

Package: perl-base
Version: 5.18.2-4+b1
Severity: grave

On s390x perl fails to run debconf and segfaults later on:

| $ gdb --args perl /usr/share/debconf/frontend
| GNU gdb (GDB) 7.6.2 (Debian 7.6.2-1.1)
| Copyright (C) 2013 Free Software Foundation, Inc.
| License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
| This is free software: you are free to change and redistribute it.
| There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
| and "show warranty" for details.
| This GDB was configured as "s390x-linux-gnu".
| For bug reporting instructions, please see:
| <http://www.gnu.org/software/gdb/bugs/>...
| Reading symbols from /usr/bin/perl...(no debugging symbols found)...done.
| (gdb) run
| Starting program: /usr/bin/perl /usr/share/debconf/frontend
| warning: Could not load shared library symbols for linux-vdso64.so.1.
| Do you need "set solib-search-path" or "set sysroot"?
| [Thread debugging using libthread_db enabled]
| Using host libthread_db library "/lib/s390x-linux-gnu/libthread_db.so.1".
| debconf: DbDriver "passwords" warning: could not open /var/cache/debconf/passwords.dat: Permission denied
| Use of uninitialized value $ARGV[0] in string eq at /usr/share/debconf/frontend line 17.
| Use of uninitialized value $ARGV[0] in pattern match (m//) at /usr/share/debconf/frontend line 24.
| Use of uninitialized value $ARGV[0] in concatenation (.) or string at /usr/share/debconf/frontend line 60.
| Use of uninitialized value $ARGV[0] in pattern match (m//) at /usr/share/debconf/frontend line 61.
| Use of uninitialized value $ARGV[0] in pattern match (m//) at /usr/share/debconf/frontend line 62.
| Use of uninitialized value $ARGV[0] in pattern match (m//) at /usr/share/debconf/frontend line 72.
| Use of uninitialized value $r in <HANDLE> at /usr/share/perl5/Debconf/ConfModule.pm line 72.
| readline() on unopened filehandle at /usr/share/perl5/Debconf/ConfModule.pm line 72.
| 
| Program received signal SIGSEGV, Segmentation fault.
| 0x000003fffded8838 in ?? () from /usr/lib/libperl.so.5.18
| (gdb) bt
| #0  0x000003fffded8838 in ?? () from /usr/lib/libperl.so.5.18
| #1  0x000003fffdeceba0 in ?? () from /usr/lib/libperl.so.5.18
| #2  0x000003fffded8f60 in Perl_sv_clean_objs () from /usr/lib/libperl.so.5.18
| #3  0x000003fffde45634 in perl_destruct () from /usr/lib/libperl.so.5.18
| #4  0x0000000080000f30 in main ()
| (gdb) 

This breaks installation of glibc binary packages like tzdata.  As there
are no debugging infos available, no further information can be shown.

Bastian