[perl #63244] crash in PerlIOStdio_dup()

> -----------------------------------------------------------------
> As reported in http://bugs.debian.org/164615 :
> 
> env PERLIO=stdio perl -e 'open(F, "<&STDOUT")' 1< /dev/null
> 
> crashes on 5.8.8, 5.10.0, and blead@b9ba2fa.

Binary search:

----Program----
#!/usr/bin/perl -l

close STDERR;
open STDERR, ">", "/dev/null";
system(qq(export PERLIO=stdio ; $^X -e 'open(F, "<&STDOUT")' 1< /dev/
null));
if ($?) {
  print "not ok";
}
else {
  print "ok";
}

----Output of .../pN8S2gQ/perl-5.7.2@13082/bin/perl----
ok

----EOF ($?='0')----
----Output of .../pe6KUT8/perl-5.7.2@13083/bin/perl----
not ok

----EOF ($?='0')----



http://public.activestate.com/cgi-bin/perlbrowse/p/13083
Change 13083 by jhi@alpha on 2001/11/18 21:37:06

	Integrate perlio:
	
	[ 13081]
	Win32 layer has a dup which needs to match new prototype.
	
	[ 13080]
	Wrong way to get stdio mode used.
	
	[ 13072]
	Allow dup'ing of PerlIO::Scalar etc.


But I don't really understand that Change...

The message indicates it was an integrate of 13080, 13080 and 13072.
But the changes indicate an integrate of 13081, 13080?



Kind regards,

Bram

• [perl #63244] crash in PerlIOStdio_dup() by Bram via RT