Bug#578577: perl: segv on bad tell()

[Kevin Ryde]

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.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: foo.pl
Type: text/x-perl
Size: 56 bytes
Desc: not available
URL: <http://lists.alioth.debian.org/pipermail/perl-maintainers/attachments/20100421/6182bcb3/attachment.pl>
-------------- next part --------------


-- 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