New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Unix Domain sockaddr returned by recv is not acceptable to Socket::unpack_sockaddr_un #1098
Comments
From oloryn@www.mindspring.comRun this perl program: ----- use Socket; socket(SERVER, AF_UNIX, SOCK_DGRAM, 0); $sock_addr = recv(SERVER, $message, 256, 0); and then run this one to send a message to the first: ----- use Socket; socket(CLIENT, AF_UNIX, SOCK_DGRAM, 0); send(CLIENT, 'Test message', 0, pack_sockaddr_un('/tmp/server')); and the first will die with the message Bad arg length for Socket::unpack_sockaddr_un, length is 14, should be 110 at udtest.srv line 9. If Socket::unpack_sockaddr_un is going to expect a 110-byte long Unix Domain Perl Info
|
From renee.baecker@smart-websolutions.deTested with Perl 5.8.8 and Perl 5.10 reneeb@reneeb-desktop:~/bugs$ perl 2052.pl Cheers, |
@rgs - Status changed from 'open' to 'resolved' |
From p5p@spam.wizbit.beThis was fixed between perl-5.6.0 and perl-5.6.1 with Change 9352. http://public.activestate.com/cgi-bin/perlbrowse/p/9352 Subject: Re: [ID 20010215.006] Bad arg length for ----Program---- use Socket; unlink "/tmp/server"; socket(SERVER, AF_UNIX, SOCK_DGRAM, 0); socket(CLIENT, AF_UNIX, SOCK_DGRAM, 0); send(CLIENT, 'Test message', 0, pack_sockaddr_un('/tmp/server')); $sock_addr = recv(SERVER, $message, 256, 0); ----Output of ...l/ptL6T6c/perl-5.7.0@9344/bin/perl---- ----EOF ($?='65280')---- ----EOF ($?='0')---- |
Migrated from rt.perl.org#2052 (status was 'resolved')
Searchable as RT2052$
The text was updated successfully, but these errors were encountered: