Package: perl Version: 5.8.7-10 Severity: important Perl segfaults with the following script:
------------------------------------------------ #!/usr/bin/perl use strict; use I18N::Langinfo qw(langinfo CODESET); my $encoding = langinfo CODESET; binmode STDOUT, ":encoding($encoding)"; binmode STDERR, ":encoding($encoding)"; print "Encoding: $encoding\n"; my $agrave = chr(0xe0); my $str = "A grave = '$agrave'"; warn " warn: $str\n"; ------------------------------------------------ I get: $ ./warntest Encoding: ISO-8859-1 zsh: segmentation fault (core dumped) ./warntest This is apparently due to an infinite recursion. Excerpt of the backtrace from the "core" file: [...] #6862 0xb7b5669c in call_failure () from /usr/lib/perl/5.8/auto/Encode/Encode.so #6863 0xb7b57cc7 in XS_Encode__XS_encode () from /usr/lib/perl/5.8/auto/Encode/Encode.so #6864 0x080c0b30 in Perl_pp_entersub () #6865 0x080b961a in Perl_runops_standard () #6866 0x08060bdc in Perl_get_cv () #6867 0x0806417c in Perl_call_sv () #6868 0xb7b60a7d in PerlIOEncode_flush () from /usr/lib/perl/5.8/auto/PerlIO/encoding/encoding.so #6869 0x081205c0 in PerlIOBuf_write () #6870 0xb7b61532 in PerlIOEncode_write () from /usr/lib/perl/5.8/auto/PerlIO/encoding/encoding.so #6871 0x080a9c7a in Perl_write_to_stderr () #6872 0x080aa7dc in Perl_vwarn () #6873 0x080aaacc in Perl_vwarner () #6874 0x080aab81 in Perl_warner () #6875 0xb7b5669c in call_failure () from /usr/lib/perl/5.8/auto/Encode/Encode.so #6876 0xb7b57cc7 in XS_Encode__XS_encode () from /usr/lib/perl/5.8/auto/Encode/Encode.so [...] -- System Information: Debian Release: testing/unstable APT prefers unstable APT policy: (500, 'unstable'), (500, 'testing'), (500, 'stable') Architecture: i386 (i686) Shell: /bin/sh linked to /bin/bash Kernel: Linux 2.6.14.4-20051215 Locale: LANG=POSIX, LC_CTYPE=en_US.ISO8859-1 (charmap=ISO-8859-1) Versions of packages perl depends on: ii libc6 2.3.5-8.1 GNU C Library: Shared libraries an ii libdb4.3 4.3.29-3 Berkeley v4.3 Database Libraries [ ii libgdbm3 1.8.3-2 GNU dbm database routines (runtime ii perl-base 5.8.7-10 The Pathologically Eclectic Rubbis ii perl-modules 5.8.7-10 Core Perl modules Versions of packages perl recommends: ii perl-doc 5.8.7-10 Perl documentation -- no debconf information -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
