Package: perl Version: 5.10.1-11 Severity: normal The program foo.pl run as "perl foo.pl" below gets a segv.
gdb claims it's somewhere in the tell() call. Of course tell() is meant to be used on the handle, not the fileno(), so the program is wrong, but I expected an error return or a die or croak, not a segv.
open my $fh, '<', '/etc/motd' or die; tell(fileno($fh))
-- System Information: Debian Release: squeeze/sid APT prefers unstable APT policy: (500, 'unstable') Architecture: i386 (i586) Kernel: Linux 2.6.30-1-486 Locale: LANG=en_AU, LC_CTYPE=en_AU (charmap=ISO-8859-1) Shell: /bin/sh linked to /bin/dash Versions of packages perl depends on: ii libbz2-1.0 1.0.5-4 high-quality block-sorting file co ii libc6 2.10.1-3 GNU C Library: Shared libraries ii libdb4.7 4.7.25-9 Berkeley v4.7 Database Libraries [ ii libgdbm3 1.8.3-9 GNU dbm database routines (runtime ii perl-base 5.10.1-11 minimal Perl system ii perl-modules 5.10.1-11 Core Perl modules ii zlib1g 1:1.2.3.4.dfsg-3 compression library - runtime Versions of packages perl recommends: ii make 3.81-8 An utility for Directing compilati ii netbase 4.41 Basic TCP/IP networking system Versions of packages perl suggests: ii libterm-readline-gnu-perl 1.19-2 Perl extension for the GNU Readlin ii perl-doc 5.10.1-2 Perl documentation -- no debconf information
