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

[Damyan Ivanov]

-=| Damyan Ivanov, Wed, Apr 21, 2010 at 07:37:55AM +0300 |=-
> -=| Kevin Ryde, Wed, Apr 21, 2010 at 08:08:39AM +1000 |=-
> > open my $fh, '<', '/etc/motd' or die;
> > tell(fileno($fh))
> 
> Same on amd64. The Lenny version also segfaults (amd64 and i386).

It is interesting that 'print fileno($fh)' works (prints '3') and 
tell(3) complains politely ('tell() on unopened filehandle 3 at -e 
line 1.'). It is the combination of the two that triggers some magic.
-------------- 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/31dd7ba4/attachment.pgp>