diff options
| author | Todd C. Miller <Todd.Miller@courtesan.com> | 2003-03-10 14:00:55 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-11 05:33:10 +0000 |
| commit | a6d0563455796929d2aae5a18fb57e80a20f87bd (patch) | |
| tree | a5da3d0d721e0306e0e455a5f9ae12a0dcc559c4 /ext/IO/lib | |
| parent | 38295cca2bcea18247fdba079ba504a69c9fda94 (diff) | |
| download | perl-a6d0563455796929d2aae5a18fb57e80a20f87bd.tar.gz | |
typos and other minor things
From: "Todd C. Miller" <Todd.Miller@courtesan.com>
Message-Id: <200303110400.h2B40tEQ018838@xerxes.courtesan.com>
p4raw-id: //depot/perl@18904
Diffstat (limited to 'ext/IO/lib')
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index 8d36e8ee34..7f434d9487 100644 --- a/ext/IO/lib/IO/Socket.pm +++ b/ext/IO/lib/IO/Socket.pm @@ -219,7 +219,7 @@ sub send { ? send($sock, $_[1], $flags) : send($sock, $_[1], $flags, $peer); - # remember who we send to, if it was sucessful + # remember who we send to, if it was successful ${*$sock}{'io_socket_peername'} = $peer if(@_ == 4 && defined $r); @@ -421,7 +421,7 @@ C<use> declaration will fail at compile time. =item connected -If the socket is in a connected state the the peer address is returned. +If the socket is in a connected state the peer address is returned. If the socket is not in a connected state then undef will be returned. =item protocol |