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