diff options
| author | Jesse Vincent <jesse@bestpractical.com> | 2009-10-10 16:48:38 -0400 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2009-10-10 16:48:38 -0400 |
| commit | 09a3ed31a73051acd8ed0511ea0d927d9660fd22 (patch) | |
| tree | 3455c5d12084fe7672f865f79f13f655b26af466 | |
| parent | 86cb0d3084b80528a1362f4a6b091000965f9beb (diff) | |
| download | perl-09a3ed31a73051acd8ed0511ea0d927d9660fd22.tar.gz | |
Applied a patch from David Fifield to fix an error message in perlipc.pod
Subject: Comment doesn't match code in perlipc.pod.
Date: Thu, 30 Jul 2009 07:31:48 -0600
To: perlbug@perl.org
From: David Fifield <david@bamsoftware.com>
| -rw-r--r-- | pod/perlipc.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlipc.pod b/pod/perlipc.pod index 77f0b6e3a2..642461531d 100644 --- a/pod/perlipc.pod +++ b/pod/perlipc.pod @@ -1129,7 +1129,7 @@ differ from the system on which it's being run: my $hisiaddr = inet_aton($host) || die "unknown host"; my $hispaddr = sockaddr_in($port, $hisiaddr); socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die "socket: $!"; - connect(SOCKET, $hispaddr) || die "bind: $!"; + connect(SOCKET, $hispaddr) || die "connect: $!"; my $rtime = ' '; read(SOCKET, $rtime, 4); close(SOCKET); |