diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-11-23 22:23:20 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-11-26 19:53:26 +0000 |
| commit | 78fc38e12ada7f29fe773fd35880f8076a010cc9 (patch) | |
| tree | ac5039bc35b4a7e1d1518efc6c80d080ed8f67a4 /pod/perlipc.pod | |
| parent | 32b2ae027534ad371a7b2219e0afd4bc2c6d07c1 (diff) | |
| download | perl-78fc38e12ada7f29fe773fd35880f8076a010cc9.tar.gz | |
Re: [perl #18626] bug in perlipc man page
Message-ID: <87bs4gdohz.fsf@vran.herceg.de>
p4raw-id: //depot/perl@18183
Diffstat (limited to 'pod/perlipc.pod')
| -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 40693a500d..f55bdff505 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 |