From: Slaven Rezic <slaven@rezic.de>
Date: Sat, 23 Nov 2002 21:23:20 +0000 (+0100)
Subject: Re: [perl #18626] bug in perlipc man page
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78fc38e12ada7f29fe773fd35880f8076a010cc9;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #18626] bug in perlipc man page
Message-ID: <87bs4gdohz.fsf@vran.herceg.de>

p4raw-id: //depot/perl@18183
---

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 40693a5..f55bdff 100644
--- a/pod/perlipc.pod
+++ b/pod/perlipc.pod
@@ -1388,7 +1388,7 @@ Here's the code.  We'll
    $client->autoflush(1);
    print $client "Welcome to $0; type help for command list.\n";
    $hostinfo = gethostbyaddr($client->peeraddr);
-   printf "[Connect from %s]\n", $hostinfo->name || $client->peerhost;
+   printf "[Connect from %s]\n", $hostinfo ? $hostinfo->name : $client->peerhost;
    print $client "Command? ";
    while ( <$client>) {
      next unless /\S/;	     # blank line