Change 18183 by rgs@rgs-home on 2002/11/26 19:53:26
Subject: Re: [perl #18626] bug in perlipc man page
From: Slaven Rezic <[EMAIL PROTECTED]>
Date: 23 Nov 2002 21:23:20 +0100
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/pod/perlipc.pod#44 edit
Differences ...
==== //depot/perl/pod/perlipc.pod#44 (text) ====
Index: perl/pod/perlipc.pod
--- perl/pod/perlipc.pod#43~18017~ Mon Oct 14 13:37:06 2002
+++ perl/pod/perlipc.pod Tue Nov 26 11:53:26 2002
@@ -1388,7 +1388,7 @@
$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
End of Patch.
