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

[Niko Tyni]

found 578577 5.10.0-19
fixed 578577 5.12.0-1
thanks

On Wed, Apr 21, 2010 at 07:47:54AM +0300, Damyan Ivanov wrote:
> -=| 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.

This is fixed in 5.12.0-1 (currently in experimental), most probably by

 http://perl5.git.perl.org/perl.git/commit/f03173f2c707a804ec3e9c291d2ab1adb9db4abc
 http://perl5.git.perl.org/perl.git/commit/f4817f32b1c5f1cefe556cf79f36f874b67cad16

Will look at backporting to 5.10.1.
-- 
Niko Tyni   ntyni at debian.org