Slaven Rezic wrote:
>
> The following patch is somewhat shorter:
Thanks, applied as 18183.
> --- bleedperl/pod/perlipc.pod Mon Oct 14 23:48:53 2002
> +++ bleedperl2/pod/perlipc.pod Sat Nov 23 21:20:44 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
