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

[Damyan Ivanov]

tags 578577 confirmed
found 578577 5.10.0-19lenny2
thanks

-=| Kevin Ryde, Wed, Apr 21, 2010 at 08:08:39AM +1000 |=-
> 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))

Same on amd64. The Lenny version also segfaults (amd64 and i386).

-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 835 bytes
Desc: Digital signature
URL: <http://lists.alioth.debian.org/pipermail/perl-maintainers/attachments/20100421/efbfaea3/attachment.pgp>