From: Jesse Vincent <jesse@bestpractical.com>
Date: Sat, 10 Oct 2009 20:48:38 +0000 (-0400)
Subject: Applied a patch from David Fifield to fix an error message in perlipc.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=09a3ed31a73051acd8ed0511ea0d927d9660fd22;p=p5sagit%2Fp5-mst-13.2.git

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>
---

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 77f0b6e..6424615 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);