Closed p5pRT closed 20 years ago
Here is a patch which fixes the 'usage' message for IO::Socket::socketpair\, and clarifies its documentation.
A couple of minor glitches in the pod text are fixed in passing.
The base for the patch is the Socket.pm with 5.00551; My previous patch would best be applied first.
Ian
*** ext/IO/lib/IO/Socket.pm Fri May 15 15:33:14 1998
--- ext/IO/lib/IO/Socket.pm.revised Fri Jun 25 10:29:03 1999
***************
*** 75\,83 ****
that was trying to connect. In a scalar context the new socket is returned\,
or undef upon failure. In an array context a two-element array is returned
! containing the new socket and the peer address\, the list will
be empty upon failure.
Additional methods that are provided are
=item timeout([VAL])
--- 75\,92 ----
that was trying to connect. In a scalar context the new socket is returned\,
or undef upon failure. In an array context a two-element array is returned
! containing the new socket and the peer address; the list will
be empty upon failure.
+ =item socketpair(DOMAIN\, TYPE\, PROTOCOL)
+
+ Call C\
+ =over 4
+
=item timeout([VAL])
***************
*** 124\,128 ****
@ISA = qw(IO::Handle);
! $VERSION = "1.1603";
sub import {
--- 133\,137 ----
@ISA = qw(IO::Handle);
! $VERSION = "1.1603"; CHANGE ME
sub import {
***************
*** 182\,186 ****
sub socketpair {
! @_ == 4 || croak 'usage: IO::Socket->pair(DOMAIN\, TYPE\, PROTOCOL)';
my($class\,$domain\,$type\,$protocol) = @_;
my $fh1 = $class->new();
--- 191\,195 ----
sub socketpair {
! @_ == 4 || croak 'usage: IO::Socket->socketpair(DOMAIN\, TYPE\, PROTOCOL)';
my($class\,$domain\,$type\,$protocol) = @_;
my $fh1 = $class->new();
Migrated from rt.perl.org#917 (status was 'resolved')
Searchable as RT917$