[perl #7614] accept() cores interpreter

On Fri Jul 25 14:51:56 2008, animator wrote:
> Reduced version of the code from Graham Barr:
> 
> #!/usr/bin/perl
> 
> use strict;
> use Socket;
> 
> my $sock;
> my $proto = getprotobyname('tcp');
> socket($sock, PF_INET, SOCK_STREAM, $proto);
> accept($sock, $sock);
> __END__
> 
> perl-5.6.1 rt-7614.pl
> Segmentation fault
> 
> perl-5.6.2 rt-7614.pl 
> Segmentation fault
> 
> perl-5.8.0 rt-7614.pl
> (no output)
> 
> 
> (This was not added as a test - there appear to be no tests for 
> accept().)
> 

Looks like this was already fixed, so I'm marking as resolved, but I'll
have to echo animator, since I can't find this tested anywhere in the
core; Can someone get around adding that?


---
via perlbug:  queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=7614

• [perl #7614] accept() cores interpreter by Brian Fraser via RT
• Re: [perl #7614] accept() cores interpreter by Nicholas Clark