Perl 5.001perl-5.001

[See the Changes file for a list of changes]

1 files changed, 5 insertions, 5 deletions

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index a2f3f8b16d..5a43660fb2 100644
--- a/pod/perlipc.pod
+++ b/pod/perlipc.pod
@@ -34,10 +34,10 @@ Here's a sample TCP client.
 		    gethostbyname($hostname);
     ($name, $aliases, $type, $len, $thataddr) = gethostbyname($them);
 
-    $this = pack($sockaddr, &AF_INET, 0, $thisaddr);
-    $that = pack($sockaddr, &AF_INET, $port, $thataddr);
+    $this = pack($sockaddr, AF_INET, 0, $thisaddr);
+    $that = pack($sockaddr, AF_INET, $port, $thataddr);
 
-    socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
+    socket(S, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
     bind(S, $this) || die "bind: $!";
     connect(S, $that) || die "connect: $!";
 
@@ -69,11 +69,11 @@ And here's a server:
     ($name, $aliases, $port) = getservbyname($port, 'tcp')
 	unless $port =~ /^\d+$/;
 
-    $this = pack($sockaddr, &AF_INET, $port, "\0\0\0\0");
+    $this = pack($sockaddr, AF_INET, $port, "\0\0\0\0");
 
     select(NS); $| = 1; select(stdout);
 
-    socket(S, &PF_INET, &SOCK_STREAM, $proto) || die "socket: $!";
+    socket(S, PF_INET, SOCK_STREAM, $proto) || die "socket: $!";
     bind(S, $this) || die "bind: $!";
     listen(S, 5) || die "connect: $!";